Top 10k strings from ZX-Review 1996.04-05 (1996)(Inforkom)(ru).fdi in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [FDI] (TOSEC-v2006-06-06) /
Back to the directory listing
56 RET
49
34 RET
32
29 INC HL
28 *********************************
28
24 RRCA
23 POP BC
22 EXX
22
22
20
19 PUSH HL
19 ADD HL,DE
19 RET
19 ;
18 POP HL
18 ADD HL,HL
16 UUUUUUUUUUUUUUUUUUU
16
15 POP DE
14 LD R,A ;!!!
14 LD A,E
14 INC DE
14
13 ADD HL,HL
13
12 OR C
12 LD A,B
12 PUSH DE
12 LD L,A
12
11 ADD HL,BC
11 LDIR
11 LD A,(HL)
10 multicolor'
10 RRA
10 NOP ;!!!
10 LD E,A
10 LD DE,0 ;!!!
10 LD C,L
10 LD B,H
10 DEC HL
10 ADD HL,HL
10 LD A,H
10 LD (HL),A
10 LD (DE),A
10 EX DE,HL
10 ;
10
9 0E 0E 0E 0E 0E 0E 0C 0D
9 PUSH DE
9 LD DE,#0000
9 LD E,A
9 ADD A,A
9 INC HL
9 INC HL
9
8 0A 0B 0E 0E 0E 0E
8 LDIR
8 LD D,0 ;!!!
8 PUSH BC
8 LD (RND+1),HL
8 INC H
8 INC A
8 HALT
8 DJNZ L1
8 CALL 9402
8 POP BC
7 10 ORG 40000
7 ORG #8000
7 ENT $
7 CALL WAIT
7 LD DE,32
7 LD B,8
7 LD A,D
7 LD (HL),214
7 EXX
7 DEFB 0
7 AND 7
6 perewod9~isel9iz9
6 RND LD HL,0
6 FFFFFFFFFFFFFFFFFFFF
6 "" ""
6 LD I,A
6 LD HL,INT
6 INC HL
6 INC A
6 IM 2
6 HALT
6 ADD HL,DE
6 OR A
6 LD H,A
6 LD B,2
6 DEC A
6 PUSH HL
6 POP HL
6 LD E,A
6 LD A,(HL)
6 LD (HL),D
6 INC IX
6 INC H
6
5 UUUUUUUUUUU
5 ******************************************************************************
5 SCORPION'
5 10 (C) PLEXUS SOFT' 1996
5 PUSH BC
5 PUSH HL
5 POP HL
5 INC IX
5 DEC A
5 XOR A
5 SBC HL,DE
5 ORG #8000
5 LD C,A
5 INC D
5 IN A,(#FE)
5 CP 255 ;
5 ADD A,L
5 ...
5 POP HL
5 RRCA
5 ;
5
4 ; ES FOR INFORCOM
4 0E 0E 08 08 08 08
4 0D 0D 0C 0C 0D 0D
4 0C 0D 0C 0D 0C 0D
4 00 00 00 00 00 00 0C 08
4 """"""""""""""""""""
4 "ZX-SPECTRUM"
4 CALL DOS
4 RL L
4 RL H
4 RET ;
4 LD R,A ;!!!
4 LD HL,#5800
4 LD H,0
4 LD DE,#5801
4 LD D,(HL) ;!!!
4 LD BC,#2FF
4 LD A,H
4 LD A,D
4 LD A,(Y)
4 LD A,(X)
4 LD A,(HL) ;!!!
4 LD (Y),A
4 LD (X),A
4 LD (HL),A
4 LD (HL),#0F
4 JR DISP0
4 IN A,(#FE)
4 IM 0
4 EX AF,AF'
4 DEC SP
4 DEC C
4 DEC BC
4 CCF
4 CALL DRAW2
4 ... ;
4 SUB 8
4 RRA
4 RLC L
4 RL (HL)
4 POP AF
4 OUT (C),A
4 ORG 40000
4 OR C
4 LD D,A
4 LD H,0
4 LD E,L
4 LD DE,BUF
4 LD DE,16384
4 LD D,0
4 LD BC,768
4 LD A,E
4 LD A,(DE)
4 LD (NP),A
4 DJNZ L2
4 CALL PRINT
4 ADD A,#77
4 -
4 XOR A
4 RST 16
4 RLCA
4 PUSH DE
4 POP DE
4 ORG 40000
4 LD B,A
4 INC HL
4 INC A
4 EXX
4 DJNZ LOOP
4 DEC L
4 DEC A
4 RET
4 POP BC
4 ;
4
4
4
4
4
3 ~astx9fajla9
3 znov.tx C
3 zapisatx9sektor
3 zapisatx9dorovku
3 vfor_g.txC
3 s~itatx9dorovku
3 stro~n=9bukwy
3 sistemnoj9dorovke
3 sektorow>>
3 podtwerdite9
3 perezapisatx
3 nowye_dorovka
3 najti9fajl
3 hhhhhhhhhhho`
3 ffor_2.txC
3 _zamena9diska
3 _wwod9komand
3 _wozwrat9w9
3 _stranica9wpered
3 _stranica9nazad
3 _perekl`~enie9zagl=
3 _perekl`~enie9revimow9
3 _informaciq
3 ^islo9NE9bolx{e
3 Zapustitx9fajl
3 Zapisatx9izmeneniq
3 Zapisatx9dorovku
3 Zapisatx99sektor
3 Wyjti9iz9procedury
3 Wy9uwereny9
3 Wstawxte99prinima`}ij9dis
3 Wstawxte99kopiruemyj99dis
3 Vfor_1.txC
3 S~itatx99dorovku
3 Swobodno>>>>>
3 Stertyh>>>>>>>>
3 Steretx9mark
3 Sfor_0.txC
3 S=_Peterburg
3 Perwaq9swobodnaq9dorovka>>
3 Pereme}enie9kursora_klawi{ami9kursora
3 Pereimenowat
3 Ob?em9fajla9iz
3 O9[9I9B9K9
3 Nowaq9mask
3 Nesankcionirowannaq99kopi
3 Ne9TOT9disk99
3 Na~alo_dor=
3 Na9diske9NET9takogo9fajla
3 Mnogo9sektoro
3 Mnogo9fajlo
3 Mark=9fajlow
3 Kopirowatx9s9
3 Kontrolx9diskow9
3 Konec9_dor=
3 Fajlow>>>>>>>>>
3 Fajlow>>>>>
3 Fajl99su}estwuet
3 Dlina9999fajla>>
3 Disk-Doctor
3 Cexp1.tx C
3 CONVER Comander
3 Adres9zagruzki>>
3 @=Kowalewskij
3 ;exp0.tx C
3 9zapisatx99katalog
3 9stertyh>>>
3 9prerwatx9operaci
3 9ignorirowatx9fajl
3 9Konec9programmy9
3 9@=Kowalewskij
3 999swobodnoj9zone
3 30 READ a: POKE f, a
3 256128 48:
3 0E 0E 0E 0E 0E 0E 0C 0C
3 0A 0B 0C 0D 0E 0F
3 06 06 06 06 06 06 0C 0D
3 02 03 04 05 06 07 08 09
3 +etud1.txC
3 ++++++++++
3 *****************************************************************************
3 **********************************************************
3 )
3 'True Vid.'
3 'Inv. Vid.'
3 'Graphics'
3 'Caps Losk'
3 &etud0.txC
3 #"a\"c\"e\!
3 "S\"K\"U\#"Y\
3 !dos.tx C
3 multicolor
3 ZX-SPECTRUM
3 #03
3 EXIT -
3 50 ADD HL,HL
3 40 S1 LD A,H
3 D7 -
3 D6 -
3 LD BC,(0) ;!!!
3 LD A,#81
3 LD (#81FF),HL
3 EI ;
3 SUB 32
3 SRL L
3 SRA A
3 SLA A
3 RET Z ;
3 RET ;
3 POP AF
3 OR E
3 LD HL,22528
3 LD DE,22528
3 LD D,H
3 LD D,A
3 LD B,A
3 LD B,32
3 LD A,L
3 LD A,C
3 LD A,(LONG+1)
3 LD A,#7F
3 LD (N),A
3 LD (ADR),HL
3 JR NZ,L2
3 JR NC,$+3
3 JR CONT1
3 INC (HL)
3 ENT $
3 ENT
3 DJNZ L4
3 DEC HL
3 DEC E
3 CALL L1
3 AND A
3 AND (HL)
3 AND #1F
3 ADD A,32
3 SLA E
3 RRA
3 RL (HL)
3 PUSH AF
3 OR (HL)
3 OR A
3 LDIR
3 LD BC,768
3 LD A,(YC)
3 LD (HL),A
3 LD C,A
3 LD B,8
3 LD A,E
3 LD (HL),A
3 LD (DE),A
3 LD (HL),E
3 LD (HL),A
3 INC A
3 INC H
3 INC DE
3 IN A,(#FE)
3 IN A,(#FE)
3 DEFB #DD
3 CP #FF
3 CALL PAUSE
3 CALL KANAL
3 BIT 0,A
3 ADD HL,HL
3 ADD HL,HL
3 PUSH BC
3 .
3 RLCA
3 (
3 EI
3 ;
3
3
3
2 pppppppppp
2 multicolor'
2 boot BU(U()
2 Y DEFB #05
2 X DEFB #09
2 WAIT LD BC,2753
2 W1 DEC BC
2 V 3.02R 128K
2 UP LD HL,-74
2 SCR EQU #C000
2 RIGHT LD HL,#FFFC
2 R4 JR R3
2 R3 LD A,B
2 R2 LD L,0
2 R1 LD B,3
2 NERAL LIFE.
2 MUL LD HL,0
2 M1 LD C,#FE
2 M0 DEC BC
2 LOOP PUSH BC
2 LEFT LD HL,#FFFB
2 LD H,#16
2 L3 PUSH HL
2 L2 PUSH HL
2 L2 PUSH BC
2 L1 PUSH BC
2 INT LD (HL),E
2 INKEY LD A,#0F
2 Galactic 1 Invaded!"
2 GGGGGGGGGGFF
2 GALACTIC HYPERSPACE.
2 FOR_SP DEFW 0
2 FONT EQU 41000
2 FIRE LD HL,-2
2 FFFFFFFFFF
2 F2 LD E,D
2 F1 DEC BC
2 F0 LD A,L
2 END NOP
2 Dark Wheel").
2 DRAW2 EX AF,AF'
2 DRAW LD E,#18
2 DOWN LD HL,64
2 DISP3 LD R,A ;!!!
2 DISP2 JR DISP0
2 DISP1 DEC BC
2 DISP0 NOP ;!!!
2 DAY! Diazen Invaded!".
2 D2 DJNZ D2
2 D1 LD B,14
2 BUFF DEFS 5
2 BEG1 PUSH BC
2 ALLIEN COMPUTER.
2 ADDR EQU 40000
2 <B|T|DDDD8
2 ;LINETEST 312/320/...?
2 ; -----------------
2 ; (C) ZX-MNIC, 1995
2 ; "APPERNCE BY PLOT"
2 : MAMBA, PYTHON
2 90 POKE f, a
2 80 IF a>255 THEN GO TO 110
2 75B0: 00 00 00 00 00 00 00 00 :25
2 75A8: 00 00 00 00 00 00 00 00 :1D
2 7580: F5 D9 1E 01 CD A9 05 BC :19
2 7578: CD A4 75 CD 80 75 18 FB :A8
2 7568: 3E 7F DB FE 1F D0 7B FE :DB
2 7560: 01 00 14 08 15 CD 62 05 :3B
2 7550: CD 59 75 CD 3F 05 D8 CF :18
2 60 LET t=0: FOR f=f TO le9
2 50 IF t<>572714 THEN STOP
2 5.6 = 6.8 L.Y.!
2 40 LET t=t+(f-23286)*a:NEXT f
2 390 ;
2 380 ;
2 370 ;
2 350 DATA 14, 25, 22
2 340 DATA 12, 24, 16, 24, 50
2 330 DATA 54, 82, 50, 17, 14
2 320 DATA 124, 91, 233, 1, 96
2 310 DATA 126, 35, 54, 91, 42
2 300 DATA 0, 42, 122, 91, 54
2 290 DATA 176, 42, 120, 91, 54
2 280 DATA 91, 1, 0, 4, 237
2 260 DATA 116, 91, 237, 91, 118
2 250 DATA 0, 4, 237, 176, 42
2 240 DATA 237, 91, 114, 91, 1
2 230 DATA 16, 217, 42, 112, 91
2 220 DATA 88, 193, 225, 9, 193
2 210 DATA 201, 30, 150, 205, 72
2 200 DATA 2, 54, 0, 235, 54
2 20 FOR f=23296 TO 23403
2 190 DATA 88, 126, 254, 54, 32
2 180 DATA 197, 237, 176, 33, 75
2 170 DATA 35, 17, 72, 88, 229
2 160 DATA 0, 221, 78, 0, 221
2 150 DATA 91, 6, 6, 197, 6
2 140 DATA 108, 91, 221, 33, 102
2 140 ADD HL, HL ;
2 130 DATA 42, 110, 91, 237, 123
2 110 IF t<>a THEN STOP
2 100 ;
2 10 CLEAR 3e4: LET t=0
2 0F 0F 08 08 08 08
2 08 08 08 08 08 08
2 . COURSE -
2 . CANCEL -
2 .
2 - LERELACE
2 ****************************************************************************
2 *****************************************************************
2 ************************************************************
2 *****************************************************
2 *************************************************
2 ************************************************
2 **********************************************
2 *******************************************
2 ****************************************
2 ********************************
2 "+"FIRE" -
2 """" """"
2 scroller'
2 ZX SPECTRUM
2 TIRAOR,
2 TERMINATOR'
2 TASM 3.0
2 Spectrum.
2 Spectrum-
2 STEP 1995
2 SPECTRUM-
2 SPECTRUM'
2 SPECTRUM
2 SPECTROFON'
2 SAMPLE EDITOR'
2 RRC L; ADD
2 ROBIN OF THE WOOD.
2 RANDOMIZE USR 0.
2 PREDATOR'
2 P/V <- IFF2
2 MASTERFUL
2 HACKER 2.
2 FADE-OUT
2 ELITE M128
2 CALL LOAD1B -
2 CALL LOAD1B
2 BEST HACKERS)
2 ANYTHING):
2 ANDIBIA: 1.2 +
2 #05
2 #04
2 #00 #01
2 "RIGHT ON, COMMANDER!"
2 N1-2'96).
2 | | | | |
2 WATCH -
2 WAIT AT -
2 TAKE -
2 SLCT -
2 SILVER -
2 SHINING -
2 SEEK -
2 SCEPTRE
2 SCAN -
2 ROAM -
2 RELEASE -
2 QUIT -
2 PLAN -
2 P - POKE
2 ONERZARA-ATREXEXE: 8.0 L.Y.
2 ONERZARA-ANDIBIA: 6.0 L.Y.
2 GUARD -
2 GRAB -
2 GOLDEN -
2 GO TO -
2 DEPOSIT PANELS -
2 DARK -
2 CRYSTAL
2 CHECK -
2 BLOCK -
2 BEWITCH -
2 ATREXEXE-ONERZARA: 7.6 L.Y.
2 ATREXEXE-ANDIBIA: 1.2 L.Y.
2 ATREXEXE
2 ANYTHING
2 ANDIBIA-ONERZARA: 5.6 L.Y.
2 ANDIBIA-ATREXEXE: 2.0 L.Y.
2 AMBUSH -
2 5. DUEL WITH DAMERON -
2 4. EGYPT THREE SHOUSAND BC -
2 3. SCANDINAVIA FIVE HUNDRED AD
2 2. GREECE FOUR HUNDRED BC -
2 1. ROAD TO HELL -
2 "FIRE" -
2 740 INC E
2 730 SYSTRK LD DE,0
2 720 JR NZ,S3
2 710 POP AF
2 700 CALL SAVEL
2 440 INC HL
2 350 ADD A,A
2 340 ADD A,A
2 330 ADD A,A
2 310 AND 15
2 240 INC HL
2 230 POP AF
2 220 LD (DE),A
2 110 LD (TEMP),HL
2 100 JR NZ,S1
2 POP BC
2 LD E,0
2 LD DE,(#5CF4) ;
2 JP 15664
2 INC HL
2 INC D
2 DEFW #2A53
2 BIT 4,E
2 90 S2 DEC C
2 80 PUSH HL
2 80 INC HL
2 70 JP PE,S2
2 60 AND 255
2 3E 13 D3 FD
2 30 LD C,16
2 D5 -
2 D4 -
2 D3 -
2 ?
2 SUB 8
2 SUB 12
2 RRCA
2 RR D
2 PUSH BC
2 POP BC
2 OUT (C),L
2 OUT (C),H
2 OR L
2 OR C ;
2 OR A
2 NOP ;!!! ;
2 LD SP,(FOR_SP)
2 LD R,A ;!!! ;
2 LD L,H
2 LD L,A
2 LD I,A ;
2 LD HL,L1
2 LD HL,INT ;
2 LD HL,BUFF
2 LD HL,(BUFF+3)
2 LD HL,(BUFF+1)
2 LD HL,#0509
2 LD HL,#0107
2 LD E,1
2 LD E,0 ;!!!
2 LD DE,(X)
2 LD DE,#5800
2 LD D,L
2 LD D,0
2 LD D,(HL) ;!!! ;
2 LD C,A
2 LD C,3
2 LD BC,2749
2 LD BC,2334
2 LD BC,#7FFE
2 LD B,A
2 LD B,(HL) ;!!!
2 LD A,C
2 LD A,0
2 LD A,(IX+0)
2 LD A,#EF
2 LD A,#7F
2 LD A,#38
2 LD (X),HL
2 LD (HL),B
2 LD (FOR_SP),SP
2 LD (BUFF+4),A
2 LD (#80FF),HL ;
2 LD (#80FF),HL
2 JR Z,DISP3
2 JR Z,DISP2
2 JR Z,DISP1
2 JR NZ,W1
2 JR NZ,R4
2 JR NZ,R1
2 JR NZ,M0
2 JR NZ,F2
2 JR NZ,F1
2 JR NZ,D1
2 JR F0
2 JR DISP0 ;
2 JR C,M1
2 INC E ; 4
2 INC E ; 3
2 INC E ; 2
2 INC E
2 INC BC ;!!!
2 IN D,(C)
2 IM 2 ;
2 HALT ;
2 EX DE,HL
2 DJNZ R2
2 DJNZ K2
2 DI ;
2 DEC E
2 DEC BC ;
2 CP L
2 CP D
2 CP 8
2 CP 6
2 CP 44
2 CP 4
2 CP 32
2 CP 12
2 CP 1
2 CP #2F
2 CP #24
2 CALL Z,UP
2 CALL Z,RIGHT
2 CALL Z,LEFT
2 CALL Z,DOWN
2 CALL WAIT ;
2 CALL NC,UP
2 CALL NC,RIGHT
2 CALL NC,LEFT
2 CALL NC,FIRE
2 CALL NC,DOWN
2 CALL INKEY
2 CALL DRAW
2 1 2 3 4 5
2 ... ;
2 SRL H ;
2 SBC A,0
2 RRCA ;
2 RLCA
2 RET Z
2 RET C
2 PUSH AF
2 PUSH AF
2 OUT (#FE),A
2 ORG 50000
2 ORG 39000
2 ORG 25000
2 OR D
2 OR (HL)
2 LD B,(IX+2) ;
2 LD A,(OPC1) ;
2 LD A,(OPC) ;
2 LD A,(HL) ;
2 LD A,(HL)
2 LD (OPC1),A
2 LD A,C
2 LD HL,ADDR
2 LD HL,16384
2 LD HL,(ADR)
2 LD HL,
2 LD H,(HL)
2 LD E,8 ;
2 LD DE,41000
2 LD DE,
2 LD C,A ;
2 LD BC,8
2 LD BC,32
2 LD BC,31
2 LD BC,(23904)
2 LD BC,#7FFD
2 LD BC,
2 LD B,3
2 LD B,0
2 LD A,D ;
2 LD A,8
2 LD A,0
2 LD A,(N)
2 LD A,(HL) ;
2 LD A,(HL) ;
2 LD (LIN0+1),HL
2 LD (LIN+1),HL
2 LD (INCR),HL ;
2 LD (HL),A ;
2 LD (HL),0
2 LD (COL),A
2 LD (23904),BC
2 JR C,PROPOPC ;
2 JR Z,$+4
2 JR Z,$+3
2 JR NZ,WAIT
2 INC HL
2 INC L
2 INC IX
2 IN A,(C)
2 DJNZ LOOP
2 DJNZ L3
2 DEC DE
2 CPL
2 CP 255
2 CP #5B
2 CALL NZ,PL
2 CALL NZ,MIN
2 CALL COND ;
2 CALL WAIT
2 CALL RND
2 CALL MOVE ;
2 CALL L4
2 BIT 0,A
2 AND 15
2 AND #38
2 ADD IX,DE
2 ADD HL,BC ;
2 ADD HL,BC
2 9C48: FF EA 4D 9C 23 0D 20 F5 :FB
2 53
2 50
2 --- -------------- -------------- --
2 |
2 XOR C
2 XOR B
2 SCF
2 RST #08 ;
2 RCA ;
2 PUSH BC
2 POP AF
2 LD L,A
2 LD HL,BUF
2 LD HL,15616
2 LD DE,FONT
2 LD A,(NUM)
2 LD A,(HL)
2 LD (YC),A
2 LD (XC),A
2 LD (NUM),A
2 LD (MODE),A
2 LD (23606),HL
2 LD L,A
2 LD HL,#401F
2 LD DE,#5000
2 LD D,A
2 LD B,0
2 LD A,D
2 LD A,(LEN)
2 LD A,(HEI)
2 LD (ST),A
2 LD (POSLET),A
2 LD (FLAG),A
2 LD (COUNTL),HL
2 LD L,A
2 LD D,0
2 LD A,(IX)
2 JR Z,OPR
2 JR OPR
2 JR Z,#F895
2 JR START1
2 JR PASS
2 JR LOOP
2 JR DFL1
2 ENT $
2 ENT $
2 EI
2 DEC H
2 DEC A
2 DEC HL
2 DEC C
2 CPL
2 CALL LABEL
2 CALL #5A9
2 CALL #3D13
2 ADD IX,BC
2 ADD HL,DE
2 ADD A,32
2 RL (HL)
2 PUSH HL
2 ORG 30000
2 LD BC,(XY)
2 JR Z,BEG4
2 INC H
2 DI
2 DEC L
2 DEC C
2 CALL PRINT
2 RRA
2 OUT (C),A
2 LD H,A
2 LD A,E
2 "
2 RET
2 PUSH HL
2 LD I,A
2 ;
2 .............
2 ;
2
2
2
2
2
1 |<<D8xDDDDD<
1 on
1 multicolor
1 fReimport ZX AS
1 dventure -
1 ZX_HANG EI
1 ZEUS EQU #8000
1 ZAP_ LD (HL),#20
1 YC DEFB 0
1 XY DEFB 255,87
1 XPC DEFB 0
1 XC DEFB 0
1 X, N, J, SPACE.
1 W_RAY HALT ;
1 W_RAY HALT
1 WRITE DI
1 WAIT2 DEC BC
1 WAIT LD BC,2753 ;
1 WAIT IN A,(#FF) ;
1 WAIT DEC BC
1 WAIT XOR A
1 WAIT DEC HL
1 W1 DEC BC ; (
1 VATE BEACON),
1 V 3.02R 512K
1 USR 15619 : REM : RUN "G.A.C.D."),
1 UP DEC B
1 UP CALL PRINT
1 TRANSF CALL COUNN
1 TOWN / NEXT UNIT:
1 TOKEN SUB 127
1 TOK DEFM "A"
1 TO JOANN GIVE ME GLOVES,
1 TO FENCE)
1 TICK). CRAG SNAPPER'
1 THROW BLANKET ON ANTENNA.
1 THE LYRA II MEGAPEMO (by Vasillyev Anton).
1 THE FLINSTONES 128 ( by Vasilyev Anton ), DISSYG 128 (by Koprov Eugeny),
1 THE FAMOUS FIVE,
1 TEXT EQU #A000
1 TEXT DEFB 22,10,10
1 TEXT DEFM " NEW RUNNING LINE "
1 TEXP DEFW 45000
1 TEST ORG 31900
1 TAINING BRACKET,
1 TABLE2 X,Y,L,255 ;
1 TABLE1 X,Y,L,X1,Y1,L1, ... ,255 ;
1 TABLE1 DEFB 255 ;
1 TABLE DEFW 0 ;
1 TABLE DEFB 6,6,6,6,6,6,6,6
1 TABL DEFW TAB
1 TAB INC HL
1 TAB DEFS 10
1 Studio, ZX-Format
1 St. JOHN'S WOOD (
1 Spectrum & TR-DOS
1 Saint-Petersburg, USSR. Tel (812) 554-26-13 GOOD LUCK !".
1 SVTB LD HL,(TAB2)
1 STROKA LD A,(POSLET)
1 STRATEGIC),
1 STOP POP HL
1 STIR XOR A
1 STEPS).
1 STC DEFW 0
1 STASC LD SP,0
1 STARTL DEFW 0
1 START1 LD (TABLE),HL ;
1 START1 JR START
1 START OF OBJECT: #C350 (50000)
1 START LD HL,(CRDS) ;
1 START PUSH HL
1 START ORG 30000
1 START HALT
1 STARS EI
1 SS DEFM "SIMVOL SHIFT"
1 SPF DEFM "SPACE"
1 SMARTCOMP LD IX,(BUFF)
1 SINGLE LD A,(IX)
1 SHIFT AND A
1 SH DEFB 10
1 SET_VAR LD HL,TAB
1 SET_TBL LD HL,SCR_TBL ;
1 SET_DOT LD (HL),A ;
1 SET_DIV LD A,L
1 SET_ADR LD (HL),E
1 SEED DEFW 0
1 SEED DEFB 128,255,63
1 SEED EQU 23670
1 SCR_TBL DEFS 256*4 ;
1 SCRL LD A,(BC)
1 SCREEN EQU 40000 ;
1 SCR LD HL,16385
1 SCAN LD DE,#0001
1 SC4 PUSH BC
1 SC3 LD A,(IX+0)
1 SC2 PUSH BC
1 SC1 PUSH BC
1 RUN OR A
1 RND PUSH HL
1 RND LD HL,SEED
1 RND LD HL,0 ;
1 RND LD DE,0
1 RIGHT INC C
1 RIATOINS
1 RE_RND CALL RND
1 RESET
1 REPORTER"
1 REDEF LD BC,#7FFE
1 RED LD A,#02
1 RANDOMIZE USR 45000.
1 RANDOMIZE ADDRES1: LET A=USR ADDRES2,
1 RAND. USR 15619:REM:SAVE "sts 3.3" CODE 56064,9472
1 RAND. USR 15619:REM:LOAD "sts 3.3" CODE -
1 RAND. USR 15619:REM:ERAZE "sts 3.3" CODE
1 RAINBIRD SOFTWARE,
1 RAD, WATERLOO...).
1 QQQQQQQQQQQQQQQQQQQQ
1 QO CALL SCRBF
1 QAQAQAQAQAQAQAQAQAQA
1 Paradise, Xecutor, Slap Fight, Chase H.Q., Rex'S
1 P\NcZ(LOOK B
1 P\=]Z(boot BU(U()
1 PSET LD H,SCR_TBL/256 ; H -
1 PROPOPC LD DE,3 ;
1 PROGRAM",
1 PROGRAM LD HL,TEXT ;
1 PROGRAM LD HL,TABLE1 ;
1 PROD LD C,H
1 PRINT PUSH DE
1 PRINT LD A,(HL)
1 PRINT LD (IY+87),3
1 PRINT ...
1 PREP_T LD A,L
1 PREPARE LD HL,PAL_TBL
1 PREPARE LD HL,DAL_TBL
1 PR1 PUSH BC
1 PR INC HL
1 PR DEFB 0,0
1 POSLET DEFW #0800
1 POKE 65366,80 -
1 POKE 65299,88 -
1 POKE 58922,84 -
1 POKE 58915,80 -
1 POKE 58894,80 -
1 POKE (ADR + 2), PEEK 23671
1 POINTER LD HL,#BE00 ;
1 PAUSE EQU 1300
1 PAUSE LD B,5
1 PAUS DEFB 16
1 PASS INC D
1 PAL_TBL EQU 0-256*8
1 P3 AND A
1 P2 LD HL,10072
1 P2 INC HL
1 P1 PUSH AF
1 P1 DEC C
1 P/V <- IFF2 (
1 OWN REAPER
1 OVFLOW LD (HL),#FE
1 OUT (C),A.
1 OPR1 LD A,#FD
1 OPR CALL PRINT
1 OPC1 NOP ;
1 OPC NOP ;
1 OKE VAL "23624",VAL "7": OUT COD
1 OK LD A,(N)
1 OF SHINY METAL, MIND PROBE
1 NUM DEFB 0
1 NP DEFB 0
1 NOISEFX DI
1 NO1 POP AF
1 NO RL E
1 NIC FORK)
1 NEX_LIN PUSH BC
1 NACH. DEFW ;
1 N$="" THEN LET NEXT=49166: GO TO
1 N DEFB 0
1 M_1 LD C,A
1 MULTS AND A
1 MULT RR A
1 MOVE PUSH HL ;
1 MORTAL KOMBAT.
1 MODE DEC A
1 MM HALT
1 MEGADEMO.
1 MC 5313",
1 MARIO1,....MARIO999,
1 MA LTD. PROJECT UPDATE.
1 M3 DEC BC ;
1 M2 LD A,R
1 M1 NOP ; !!!
1 M1 DJNZ M1 ; - " - " -
1 M1 DJNZ M1
1 M1 DEC BC ; "
1 M1 LD HL,16384
1 M0 INC DE ;
1 M0 INC DE
1 LOP PUSH BC
1 LOOP5 RR E
1 LOOP4 LD A,(NP)
1 LOOP3 PUSH BC
1 LOOP2 RL (HL)
1 LOOP1 LD B,32 ;
1 LOOP1 CP #0A
1 LOOP PUSH BC
1 LOOP LD A,54
1 LOOP HALT
1 LOOP EXX
1 LOOP PUSH HL
1 LOOP LD A,(IX)
1 LOOP INC HL
1 LOOP CP 0
1 LONG DEFW ;
1 LOAD A$CODE ADR
1 LOAD XOR A ;
1 LIRA II, MEGADEMO, LAMBADA, SABRINA...
1 LINES ...
1 LINE1 PUSH AF
1 LINE PUSH AF
1 LIN10 POP AF
1 LIN1 POP AF
1 LIN0 CALL LINE
1 LIN CALL LINE
1 LET T=T+A: NEXT N
1 LENGS : #00AF (00175)
1 LEN EQU #59FE
1 LEFT DEC C
1 LEAR 39999: RANDOMIZE USR 15619:
1 LD DE,TABLE+16
1 LD A,#1F: OUT (#FD),A
1 LD LD A,(HL)
1 LB LD (DE),A
1 LABEL LD A,(HL)
1 LAB1 LD (HL),E
1 L90 LD (HEI),A
1 L9 RR C
1 L8 RR C
1 L70 LD (LEN),A
1 L7 RR C
1 L6 LD A,34
1 L6 RR C
1 L5 POP AF
1 L5 LD A,(HL)
1 L5 INC HL ;
1 L5 LD A,#F7
1 L41 PUSH HL
1 L4 DEFS 4954
1 L4 DEFS 4633
1 L4 PUSH BC
1 L4 LD A,E
1 L4 LD A,(HL)
1 L4 LD (HL),A
1 L4 JR L5
1 L4 RRA
1 L4 RL (HL)
1 L31 DEC BC
1 L3 LD SP,SCR
1 L3 LD BC,1790
1 L3 PUSH AF
1 L3 LD E,1
1 L3 LD B,4
1 L3 LD (HL),A
1 L3 RRA
1 L3 INC DE
1 L2 LD SP,#0000
1 L2 DEC BC
1 L2 OUT (253),A
1 L2 LD HL,(BUFF)
1 L2 LD (PAUS),A
1 L2 LD (HL),A
1 L2 INC HL
1 L2 INC (HL)
1 L2 RRA
1 L2 LD A,(DE)
1 L16 LD A,C
1 L15 INC D
1 L14 DEC DE
1 L13 LDI
1 L12 PUSH BC
1 L11 PUSH BC
1 L10 PUSH BC
1 L1 LD SP,#0000
1 L1 LD BC,1652
1 L1 PUSH HL
1 L1 PUSH DE
1 L1 PUSH AF
1 L1 LD HL,BITE ;
1 L1 LD BC,65533
1 L1 LD A,(HL)
1 L1 LD (DE),A
1 L1 JP 49152 (49190)
1 L1 DEC B
1 L1 CALL START ;
1 L1 ADD HL,DE
1 L1 LD A,22
1 L1 INC HL
1 Kot Ltd,
1 K_1 LD (L1+1),HL
1 KUANO, AURIC, GRISUL
1 KEY_PR XOR %11111
1 KEY_L IN A,(C)
1 KEYF LD A,(NP)
1 KEY DEFM "12345QWERT"
1 KEN SPY MISSLE.
1 KEMPSTON 3 -
1 KEMPSTON 2 -
1 KANAL LD BC,#FFFD
1 K4 DEC BC
1 K3 LD (IX+0),D
1 K3 DEC BC
1 K2 LD A,(IX+0)
1 K2 LD (IX+0),#E1
1 K1 LD B,8
1 K1 LD A,(IX+0)
1 K0 LD C,8
1 K0 EXX
1 Interrupt Service Routine -ISR (
1 IN_F1 LD C,#0A ;
1 IN_F INC HL ;
1 INTERFACE-I.
1 INT2 POP HL ;
1 INT2 POP HL
1 INT RET
1 INT LD BC,(0) ;!!!
1 INT LD (HL),E ;
1 INT EI ;
1 INT ... ;
1 INRND LD A,H
1 INNER_L LD D,H
1 INNER CALL RND
1 INK+PAPER*8+BRIGHT*64+FLUSH*128.
1 INIT LD HL,TEXT
1 INCR DEFW #0000
1 IC INC HL
1 I$="" THEN LET INIT=49163: GO TO
1 HH LD BC,25 ;
1 HEI EQU #59FF
1 Graphic Adventure Greator, Quill),
1 GO PUSH BC
1 GGGGFFFFFF
1 GG INC HL
1 GAME OVER.
1 FRENCH WINDOWS -
1 FO_FIND PUSH HL
1 FORMAT LD HL,16384
1 FORM LD A,D
1 FLAG EQU #59FD
1 FIR_NEX LD A,(HL) ;
1 FIRE LD A,(NUM)
1 FIND PUSH HL
1 FILTER DI ;
1 FILL_T LD A,L
1 FILL1 LD (HL),A ;
1 FILL LD A,L ;
1 FILL LD (HL),A
1 FF FF FF FF FF FF FF FF
1 FF FF FF FF FF FF
1 FF INC HL
1 FER-DE-LENCE
1 FENCE WITH CUTTERS).
1 FE FF A9 62 8D FB FF 58
1 FE FF A5 20 F0 11 A2 E0
1 FD FF 8D FF FF A9
1 FD B5 OR IYl ;R = #26
1 FD AE 00 XOR (IX+0) ;R = #1E (0-
1 FD 7C LD A,IYh ;R = #24
1 FD 23 INC IY ;R = #22
1 FC FF FF FF FF FF
1 FADEOUT LD D,PAL_TBL/256
1 FADEOUT LD D,DAL_TBL/256 ;
1 FADE-OUT,
1 FA A0 00 B9 00 F9
1 F2 LD E,D ;
1 F1 DEC BC ;
1 F0 02 A2 F8 8E 01 60 6C
1 F0 LD A,L ;
1 EXIT EX DE,HL
1 ER FOR ZODDI SPECIAL),
1 ENEMY, ANYONE).
1 END NOP
1 END INC HL
1 END LD (HL),#FF
1 EN DEFN "ENTER"
1 EE INC HL
1 ED 77 00 LD (IY+0),A ;R = #20 (0-
1 ED 5F L5CF8 LD A,R ;R = #1C
1 ED 4F LD R,A ;R = #1A
1 EAD A: POKE USR "A"+N,A: NEXT N
1 EA EA EA 78 4C 49
1 E "RETURN",NOT PI: OUT VAL "3276
1 D_STEP INC D ;
1 D_8 PUSH BC
1 D_2 LD B,4
1 D_1 RLCA
1 DOWN INC B
1 DOWN CALL PRINT
1 DOS EX (SP),HL
1 DISP3 LD R,A ;!!! ;
1 DISP2 JR DISP0 ;
1 DISP1 DEC BC ;
1 DISP0 NOP ;!!! ;
1 DENDY 4016h
1 DEMO LD BC,#6464
1 DEL1 LD A,(IX)
1 DEFLAT LD (HL),A
1 DDD<D|D@pDD
1 DD INC HL
1 DAL_TBL DEFS 256 ;
1 D<D<DDDDD><<
1 D<D<DDDDD<<
1 D8H8<8H8DDD
1 D0 DE E6 23 D0 DA AD 00
1 D0 10 C0 FE D0 0C
1 C_OUT CALL RND
1 CUP DEFB 143
1 CS DEFM "CAPS SHIFT"
1 COU_L RRA
1 COU_E LD A,B
1 COUNTL DEFW 0
1 COUNN PUSH BC
1 CONT2 LD A,(HL)
1 CONT1 INC HL
1 CONT POP BC
1 CONT INC HL ;
1 CONT CP #7F
1 COND1 LD A,(IX+0) ;
1 COND LD IX,(TABLE) ;
1 COL DEFB 0
1 CLR DEFB 7
1 CLEAR 24499 -
1 CHISBURGER)
1 CHECK CP 4
1 CH4 LD A,(HL)
1 CH3 INC HL
1 CH2 CP 8
1 CH1 LD A,1
1 CH LD A,(COL)
1 CC INC HL
1 CALL FILTER
1 C9 FF F0 08 A2 F0
1 Boot BU(U()
1 B_FX EI
1 BUTCHERA "
1 BUTCH HARD GUY
1 BUFF DEFS 5 ;
1 BUFF DEFW #0000
1 BUF DEFS 8
1 BUF DEFS 32
1 BUF DEFB 65,66,67
1 BUF DEFB 0
1 BUBBLE BOBBLE
1 BRIDE OF FRANKENSTEIN
1 BOULDERDASH
1 BORDER 0: BORDER 0: LET A=0+5+0: IF INKEY$="" THEN GOTO 10
1 BOMB JACK II
1 BOBBY BEARING
1 BLACK MAGIC
1 BITE DEFB #00
1 BEGIN LD DE,(ADRES)
1 BEG5 PUSH BC
1 BEG4 INC B
1 BEG3 DEC B
1 BEG2 IN A,(254)
1 BDDDD@DDHDD
1 BB INC HL
1 BAZOOKA BILL
1 BASIL, THE GREAT MOUSE DETECTIVE
1 BASE ...
1 BAR6 LD A,(OPC1) ;
1 BAR5 LD A,L
1 BAR3 LD H,(IX+0)
1 BAR1 DEC A ;
1 BAR LD L,A ;
1 BALLBREAKER
1 B8x<D8x8D<<
1 AXD-0310479,
1 ATR_DEC LD E,(HL) ;
1 ATR_DEC LD E,(HL)
1 ATR2 LD (HL),A
1 ATR1 PUSH BC
1 ATR LD HL,22529
1 AT 1,26;"AAA"
1 ARDUA AD NAUSEAM" (
1 ANL LD BC,#FFFD
1 ANDOMIZE USR VAL "49152": STOP
1 ADVENTURE.
1 ADRT DEFW CS,SS,SPF,EN
1 ADRES DEFW 0
1 ADR3 DEFW 22496
1 ADR2 DEFW SCREEN+6112
1 ADR1 DEFW 16384
1 ADR DEFW TEXT
1 ADR DEFW SCREEN
1 ADD A,64.
1 AD 02 20 30 FB CA
1 AD 02 20 30 FB A9 00 8D
1 AD 00 60 99 00 07
1 ABBCCCDDDDEEEEEFFFFF
1 AAAAAAAAAAQQQQQQQBBB
1 AA INC HL
1 A9 F0 8D 06 20 A9
1 A9 68 8D FE FF 8D
1 A9 00 8D 00 60 8D 00 20
1 A2 00 A0 00 8D 00 60 40
1 A0 00 98 99 00 00 C8 D0
1 @ME.FORMAT
1 @@6 INC E
1 @@4 LD DE,0
1 @@3 CALL DOS
1 @@2 LD A,#2C
1 @@1 CALL #1F54
1 >
1 =0) |
1 ="" THEN GO TO 70
1 <x8888D8DDDDDDD~<<
1 <T<xTDDDDD~<<
1 <T<xTDDDD><<<
1 <T8xTrDDDDDDDDDDD<
1 <<DDD<<xx(8|
1 <<D8xDDDDDDDDDD~<
1 ;MAXIMUM STATIC MULTICOLOR (X)
1 ;INT FILTER
1 ;16X16 MULTICOLOR
1 ;------------------------------------------
1 ;----------------------
1 ;**************************
1 ; Redefine keys (C) FREE Group 1995
1 ; INT FILTER ONLY FOR PENTAGON-128
1 ; 224/16=14,
1 ; (C) BY KABANOV ALEXANDR
1 ; SPECIAL FOR INFORCOM!
1 ; RUSSIAN BEAR GROUP
1 ; 2->
1 ; 1->
1 ; (C) SELINA SPACE 8*8
1 ; (C) Lubimov Eugene from
1 ; (C) Light,
1 ; DE -
1 ; A -
1 ; #FF -
1 ; #00 -
1 :HZH[H\H?^%]V
1 : multicolor
1 : Wayne Easson
1 : SAVE "TASM 3.2".
1 : RANDOMIZE USR 40000: IF INKEY$
1 : Q, A, SP.
1 : LDIR, RET.
1 : HERO QUEST
1 : HACKERS SQUAD,
1 : DEMO, SCAN, RED.
1 : CMR1 (#DFFD)
1 : C,A,D,E.
1 : Business/Management
1 : 2x3=6 -
1 : 10 REM I AM IN TR-DOS !!!).
1 : "Written by D.I.Mikhilov,
1 : "POP HL" + "LD (#YYYY),HL" = 26
1 : "FAIRLIGHT 1",
1 : "Compex 1991".
1 : SINCLAIR I
1 : PREDATOR
1 : LET DATA = 49152 : RANDOMIZE DATA: POKE (ADR + 1), PEEK 23670:
1 : KILL UMBARG'S MYS-
1 : 224-10=214=7x27+25.
1 : SINCLAIR II
1 : LD HL DATA (!!!
1 : LD HL DATA
1 990 PUSH HL
1 9850 LD H,A
1 980 LD A,(HL) ;
1 970 INC HL ;
1 960 SPCTAB LD C,(HL) ;
1 950 RET
1 940 JR Z,BACK ;
1 930 CP 8 ;
1 920 JR Z,ENTER ;
1 910 CP 13 ;
1 900 LD HL,(C_COOR) ;
1 90 RANDOMIZE USR 65000
1 90 PRINT AT 0,0;A;"!=";B;"E+";E : GOTO 10
1 90 LET T=T+(F-32867)"A:NEXT F
1 90 DATA 4, 62, 255, 55, 205, 86, 5, 48
1 90 DATA 33, 44, 252, 17, 0
1 90 DATA 24, 46, 33, 89, 5, 93, 22, 250, 1, 134, 0, 213
1 90 DATA 205, 86, 5, 48, 241
1 9 !
1 8D 01 60 A9 3F 8D 06 20
1 8D 01 20 AD 02 20
1 8D 00 60 40 A5 23 C9 FF
1 890 JR NC,PUTCHR ;
1 88DT8x8xDDDDD<
1 880 LD (TXTADR),HL ;
1 870 JR Z,USERPR
1 860 CP 31 ;
1 850 JR Z,PAUSE
1 840 CP 30 ;
1 830 JR Z,CH_ATR
1 820 CP 16 ;
1 810 JR Z,CH_POS
1 8000h-0FFFFh.
1 800 CP 22 ;
1 80 RANDOMIZE USR 64753
1 80 RANDOMIZE USR 64225
1 80 POKE F, A
1 80 POKE 57316, 201: REM INFINITE TIME
1 80 DATA 243, 221, 33, 172, 253, 17, 63
1 80 DATA 0, 28, 62, 255, 55
1 8 !
1 790 JR Z,SPCTAB ;
1 780 CP 6 ;
1 770 PUSH DE ;
1 76F0: 59 FF 00 00 00 00 00 00 :BE
1 76E8: 08 08 43 4F 4D 50 41 4E :2C
1 76E0: 54 1F 94 76 90 01 08 08 :74
1 76D8: 53 45 52 5A 48 53 4F 46 :C2
1 76D0: 27 53 20 4D 45 20 2D 20 :DF
1 76C8: 76 F4 01 0D 10 38 49 54 :9B
1 76C0: 59 21 0D 06 20 3D 1F 94 :D3
1 76B8: 2C 20 41 4E 59 42 4F 44 :37
1 76B0: 06 20 2D 48 45 4C 4C 4F :ED
1 76A8: 1E 00 08 16 00 00 10 07 :71
1 76A0: D3 FE 0B 78 B1 20 F4 C9 :F8
1 7698: 22 8D 76 CD 80 75 ED 5F :41
1 7690: 40 07 00 3C 4E 23 46 23 :63
1 7688: 40 22 8F 76 C9 A8 76 00 :4C
1 7680: C6 08 67 FE 58 38 02 26 :E1
1 7678: 91 76 12 E1 2C 20 0A 7C :BA
1 7670: 0F 0F E6 03 F6 58 57 3A :CC
1 7668: 10 FA CD 80 75 15 7A 0F :48
1 7660: 08 CD 80 75 7E 12 23 14 :67
1 7658: 76 19 ED 5B 8F 76 D5 06 :85
1 7650: 26 00 29 29 29 ED 5B 92 :41
1 7648: 67 FE 40 30 3C 18 38 6F :8E
1 7640: 7D 2D B7 20 44 7C D6 08 :D5
1 7638: E0 C6 20 6F 30 4B 18 3F :B5
1 7630: 7E 32 91 76 18 F5 7D E6 :CD
1 7628: 53 8F 76 23 22 8D 76 C9 :07
1 7620: 07 0F 0F 0F 23 B6 5F ED :EF
1 7618: 7E E6 18 F6 40 57 7E E6 :FB
1 7610: 23 56 23 22 8D 76 D5 C9 :E5
1 7608: 75 0B 78 B1 20 F8 C9 5E :66
1 7600: 23 46 23 22 8D 76 CD 80 :74
1 760 LD DE,PRINT ;
1 75F8: F1 0D 20 F8 E1 18 2C 4E :F6
1 75F0: 4E 23 7E E5 F5 CD 4F 76 :C0
1 75E8: 0D 28 4B FE 08 28 51 C9 :25
1 75E0: 8D 76 30 6B 2A 8F 76 FE :20
1 75D8: 1E 28 24 FE 1F 28 30 22 :4E
1 75D0: 16 28 45 FE 10 28 59 FE :55
1 75C8: BC 75 D5 FE 06 28 21 FE :8E
1 75C0: 8D 76 7E 23 FE FF C8 11 :AF
1 75B8: 00 00 00 00 CD 80 75 2A :19
1 75B8: 00 00 00 00 00 00 00 00 :2D
1 75A0: 7C FE 01 C9 C9 00 00 00 :22
1 75A0: 7C FE 01 C9 C3 BC 75 00 :4D
1 7598: F1 C9 ED 7B A9 75 E1 D9 :07
1 7598: F1 C9 ED 7B A7 75 E1 D9 :05
1 7590: A7 75 7C B5 E1 D9 28 02 :36
1 7590: A5 75 7C B5 E1 D9 28 02 :34
1 7588: 20 10 E5 2A A7 75 2B 22 :A5
1 7588: 20 10 E5 2A A5 75 2B 22 :A3
1 7570: 01 D0 D9 E5 ED 73 A9 75 :F2
1 7570: 01 D0 D9 E5 ED 73 A7 75 :F0
1 7558: 1A F3 1B ED 53 A7 75 11 :62
1 7558: 1A F3 1B ED 53 A5 75 11 :60
1 7548: 75 ED 5B B6 75 3E FF 37 :19
1 7548: 75 ED 5B B4 75 3E FF 37 :17
1 7540: 75 FE 03 20 EB DD 2A B8 :F5
1 7540: 75 FE 03 20 EB DD 2A B6 :F3
1 7538: 37 CD 56 05 30 F2 3A AB :13
1 7538: 37 CD 56 05 30 F2 3A A9 :11
1 7530: DD 21 AB 75 11 11 00 AF :94
1 7530: DD 21 A9 75 11 11 00 AF :92
1 750 RET Z ;
1 740 CP 255 ;
1 730 INC HL ;
1 720 LD A,(HL) ;
1 710 LD HL,(TXTADR) ;
1 700 PRINT CALL LOAD1B
1 70 RANDOMIZE USR 23296
1 70 PRINT AT 0,0;C
1 70 POKE 65522, 252
1 70 POKE 56286, 0: REM INFINITE ENERGY
1 70 IF T<>A THEN PRINT "DATA ERROR IN GAME BLOCK": STOP
1 70 IF A>256 THEN GO TO 100
1 70 DATA 221, 33, 0, 64, 17
1 7!?l"%!`=9
1 6;"AAA": PRINT #0;AT 0,26;"AAA";
1 66, 255, 6, 255, 175, 50, 154, 96, 49, 255, 255, 195, 0, 91, 93648
1 65533,I: OUT 49149,A: NEXT I
1 62 F9 00 F8 62 F9
1 60 POKE 54129, 0: REM INFINITE SHOTS
1 60 LOAD "" CODE
1 60 LET L=USR 24800
1 60 IF B>10 THEN GOTO 50
1 60 IF A<256 THEN POKE I, A: NEXT I
1 60 FOR N=N TO lE9: READ A: IF A<256 THEN POKE N, A:
1 60 FOR F=32877 TO lE9: READ A
1 60 DATA 62, 255, 50, 203, 92
1 60 A9 C8 8D FE FF 8D 00
1 60 8D FF FF 8D 00
1 60 85 23 A9 8D 8D
1 60 40 AD 00 60 91
1 590 RET ;
1 58294, 0: RANDOMIZE USR 52500
1 580 RET ;
1 580 LD (HL), O ;
1 570 EI ;
1 570 RET NZ ;
1 560 LD IY, 23610 ;
1 560 CP (HL) ;
1 56 57 58 59 60 61 62 63
1 5544322100/..-,,
1 550 INC (HL) ;
1 550 ;
1 540 P2 LD(IX+O),H ;
1 540 DEC HL ;
1 530 JR L3 ;
1 530 LD (HL), O ;
1 520 SLA H ;
1 520 LD A, 22 ;
1 510 JR Z, P2 ;
1 510 RET NZ ;
1 500 L3 DEC E ;
1 500 CP (HL) ;
1 50 RANDOMIZE USR 64767
1 50 RANDOMIZE USR 3e4
1 50 POKE 56777, 0: REM INFINITE LIVES
1 50 POKE 41296, 0: RUN USR 32768
1 50 POKE 28489, 201
1 50 LOAD ""
1 50 LET B=B/10 : LET E=E+1
1 50 IF t<>766540 THEN STOP
1 50 IF T<>12120 THEN PRINT "DATA ERROR IN MAIN BLOCK"
1 50 IF T-679460 THEN STOP
1 50 FOR I=1 TO lE9: READ A
1 50 DATA 175, 50, 65, 199, 195, 80, 195
1 50 DATA 175, 50, 35, 99, 195, 0, 91
1 5",VAL "20": RANDOMIZE USR VAL "
1 4C 00 07 AD 00 60
1 490 INC (HL) ;
1 490 ;
1 480 JR NZ, L2 ;
1 480 LD A, 32 ;
1 48 49 50 51 52 53 54 55
1 470 OR C ;
1 470 LD HL,POS+1;
1 460 LD A, B ;
1 460 ;
1 450 DEC BC ;
1 450 LD (HL), O ;
1 440 LD L, A ;
1 440 DJNZ L1 ;
1 430 DRVNUM EQU #00 ;
1 430 RLA ;
1 430 RET
1 430 INC DE ;
1 420 SPEED EQU #08 ;
1 420 RLA ;
1 420 POP BC
1 420 INC H ;
1 42, 253, 241, 252, 62, 201, 50, 28, 158, 49, 119, 105, 195, 144, 133, 107475
1 410 OUT_FF EQU #1FF3 ;
1 410 POP AF
1 410 AND 63 ;
1 410 LD (HL), A ;
1 400 OUT_1F EQU #2FC3 ;
1 400 L1 LD A, (DE) ;
1 400 SUB 32 ;
1 400 JR NZ,L6
1 400 ;
1 40 READ A: IF T<>A THEN STOP
1 40 RANDOMIZE USR 64739
1 40 RANDOMIZE USR 61440
1 40 RANDOMIZE USR 41712
1 40 RANDOMIZE USR 40000: INK 6
1 40 RANDOMIZE USR 40000
1 40 RANDOMIZE USR 3e4
1 40 POKE N, A: LET T=T+A: NEXT N
1 40 POKE 64909, 195: POKE 64910, 232: POKE 64911, 253
1 40 POKE 23606, 46: POKE 23607, 181: POKE 23659, 2
1 40 LOAD "" CODE 24800
1 40 LET t=t+(f-64502)*a : NEXT f
1 40 LET c=USR 23296
1 40 LET T=T+(F-32758)*A:NEXT F
1 40 IF T<>4868 THEN PRINT "ERROR IN DATA": STOP
1 40 IF CS<>464 THEN PRINT "ERROR": STOP
1 40 IF B<10 THEN GOTO 80
1 40 DATA 50, 56, 189, 195, 0, 104
1 40 A9 7A 4C 6F F9 AD 00
1 40 A2 96 AD 02 20 10 FB
1 40 41 42 43 44 45 46 47
1 4. SPECTRUM,
1 3E 1A LD A,#1A
1 390 IN_1F EQU #09BF ;
1 390 LD A,(IY+O) ;
1 390 OR C
1 380 LD A,B
1 380 LD B, 6 ;
1 380 DJN2 L1 ;
1 380 JP #3D2F
1 370 L6 DEC BC
1 370 DOS PUSH HL ;
1 370 INC HL ;
1 370 INC H ;
1 360 DATA 255, 183, 237, 228, 86, 238, 239, 249, 225, 253, 185, 85, 90, 253,
1 360 DATA 200, 175, 192, 228, 107, 238, 4, 252, 194, 59, 127, 82, 114, 255,
1 360 P11 LD D,6 ;
1 360 PUSH AF
1 360 JR L2 ;
1 360 INC D ;
1 360 JR LOOP1 ;
1 360 ;
1 350 L5 PUSH BC
1 350 P1 INC IY ;
1 350 LD(DE), A ;
1 350 LD (HL), O ;
1 350 DJNZ LOOP2 ;
1 350 ;
1 35 PRINT AT 21, 0: LOAD "" CODE 65000
1 3432-340-124.
1 340 DATA 91, 9, 213, 80, 195, 62, 52, 50, 95, 171, 195, 188, 245, 707604
1 340 JR L1 ;
1 340 JR L1
1 340 OR (HL) ;
1 340 LD D,6 ;
1 340 EX HL, DE ;
1 340 POP BC ;
1 330 DATA 128, 195, 0, 205
1 330 LD E, 8 ;
1 330 RET NZ
1 330 RRA ;
1 330 POP HL ;
1 330 LD A,D ;
1 330 ;
1 325 INC IY
1 320 DATA 128, 35, 126, 50, 39
1 320 L1 LD A,(HL) ;
1 320 DEC E
1 320 RST 1OH ;
1 320 LD E, A ;
1 320 LD (IY + O),A
1 320 DJNZ $
1 320 ;
1 32 33 34 35 36 37 38 39
1 310 DATA 128, 35, 126, 50, 42
1 310 INC IX ;
1 310 CALL L5
1 310 LD B, 8 ;
1 310 ADD A,32 ;
1 310 ADD A, H ;
1 310 LD B,A ;
1 300 DATA 50, 40, 128, 50, 48
1 300 LD BC,10000
1 300 RRCA ;
1 300 POP HL ;
1 300 LD L,O ;
1 300 NEG ;
1 300 ;
1 30 READ A: POKE N, A: NEXT N
1 30 READ A: POKE F, A
1 30 PRINT USR 64753
1 30 PRINT AT 10, 10;"INSERT TAPE": LOAD "" CODE: RANDOMIZE USR 50000
1 30 PRINT AT 0,0;" FLASH (C) AZH soft 1996"
1 30 POKE N, A: NEXT N
1 30 POKE 55838, 201
1 30 POKE 33356, 60: RANDOMIZE USR 32765
1 30 POKE 28929, 8: POKE 28934, 8: POKE 28939, 8
1 30 LOAD "SCREEN" SCREEN$
1 30 LOAD "" SCREEN$: PRINT AT 21, 0: LOAD ""CODE 28000
1 30 LOAD "" CODE: POKE 57517, 0
1 30 LOAD "" CODE 37088
1 30 LOAD "" CODE
1 30 LET T=T+(F-29990)*A:NEXT F
1 30 GOTO 20
1 30 FOR a=23350 TO 23356: READ b: POKE a, b: NEXT a
1 30 FOR N=64223 TO 64316: READ A
1 30 FOR I=23296 TO 23334: READ A: POKE I, A: LET T=T+A: NEXT I
1 30 FOR C=1 TO A : LET B=B*C
1 3
1 290 DATA 50, 56, 189, 24, 232
1 290 DATA 28, 128, 50, 31, 128
1 290 P2 LD A,L ;
1 290 LD (IX + O), H ;
1 290 JR NZ.L2
1 290 RRCA ;
1 290 LD E, A ;
1 290 LD A,D ;
1 280 DATA 50, 232, 183, 24, 237
1 280 DATA 126, 50, 22, 128, 50
1 280 DEC C
1 280 RRCA ;
1 280 RET ;
1 280 ADD A, H ;
1 280 CALL DOS
1 280 ;
1 276 EI
1 275 LD IY, 23610
1 270 DATA 85, 205, 33, 109, 128
1 270 DATA 183, 24, 7, 62, 4
1 270 JR NZ,L1 ;
1 270 JR NZ, L1 ;
1 270 DJNZ L2
1 270 RRCA ;
1 270 AND O7 ;
1 270 LD A,DRVNUM
1 260 L4 INC HL
1 260 DATA 205, 33, 0, 128, 34
1 260 DATA 201, 175, 24, 11, 62
1 260 L2 DEC E ;
1 260 RRCA ;
1 260 OR C ;
1 260 LD A, L ;
1 260 LD HL,OUT_FF ;
1 250 DATA 128, 62, 205, 50, 84
1 250 DATA 12, 241, 209, 193, 225
1 250 JR Z, P1 ;
1 250 LD E,1
1 250 RRCA ;
1 250 LD D, A ;
1 250 LD A,B ;
1 250 DJNZ $
1 243 00
1 240 L3 LD (HL),A
1 240 DATA 40, 12, 254, 21, 40
1 240 DATA 199, 200, 237, 123, 112
1 240 DEC D ;
1 240 OR 4OH ;
1 240 DEC BC ;
1 240 AND O7 ;
1 240 LD B,D ;
1 24 25 26 27 28 29 30 31
1 23681 / 82
1 233 00
1 232 00
1 230 DATA 37, 40, 13, 254, 29
1 230 DATA 141, 139, 151, 206, 198
1 230 XOR A
1 230 RL H ;
1 230 LD A, L ;
1 230 AND I8H ;
1 230 CALL DOS
1 230 ;
1 230
1 2290 DEFB 255
1 2280 DEFM "COMPANY"
1 2270 DEFB 8,8,8,8
1 2260 DEFW USER_1,400
1 2250 DEFB 31
1 224=8x26+16.
1 2240 DEFM "IT'S ME - SERZHSOFT"
1 2230 DEFB 13,16,#38
1 2220 DEFW USER_1,500
1 2210 DEFB 31
1 2200 DEFB 13,6,32,"="
1 220 DATA 223, 181, 209, 177, 144
1 220 DATA 205, 142, 2, 123, 254
1 220 L1 RL L ;
1 220 JR NC,L3
1 220 LD E,8 ;
1 220 LD D, A ;
1 220 LD A, L ;
1 220 LD HL,OUT_1F
1 2190 DEFM "HELLO, ANYBODY!"
1 2180 DEFB 6,32,"-"
1 2170 DEFB 22,0,0,16,7
1 2160 DEFW 2048
1 2150 TEXT DEFB 30
1 2140 RET
1 2130 JR NZ,LPUSR1
1 2120 OR C
1 2110 LD A,B
1 2100 DEC BC
1 210 DATA.201, 229, 197, 213, 245
1 210 DATA 62, 36, 50, 190, 109, 195, 0, 91, 14056
1 210 DATA 176, 195, 61, 0, 128
1 210 P1 LD H(IX + O);
1 210 SUB D
1 210 OR LOH ;
1 210 LD HL,(POS);
1 210 LD A,8 ;
1 210 ;
1 2090 OUT (254),A
1 2080 LD A,R
1 2070 LPUSR1 CALL LOAD1B
1 2060 LD (TXTADR),HL
1 2050 INC HL
1 2040 LD B,(HL)
1 2030 INC HL
1 2020 USER_1 LD C,(HL) ;
1 201: RANDOMIZE USR 16384
1 2010 CHARS DEFW 15360 ;
1 2000 ATTR DEFB 7 ;
1 200 DATA 91, 219, 31, 230, 31
1 200 DATA 186, 64, 183, 64, 183, 181, 0, 91, 111, 155, 16, 106, 110
1 200 DATA 0, 1, 0, 0, 237
1 200 JR P11 ;
1 200 AND 7
1 200 PUSH HL ;
1 200 INC IX ;
1 200 AND I8H ;
1 200 JR NZ,WAIT ;
1 20 READ A: POKE F, A
1 20 READ A: LET CS=CS+A
1 20 RANDOMIZE USR 32768
1 20 POKE 55837, 251
1 20 POKE 23303, 190
1 20 LOAD "CLS" CODE 40000
1 20 LOAD "" SCREEN$
1 20 LOAD "" CODE: RANDOMIZE USR 65100: LOAD "" CODE
1 20 LOAD "" CODE 25600: LOAD "" CODE 32765
1 20 LET T=0
1 20 LET E=0 : LET B=1
1 20 INK 0: PAPER 0: BORDER 0: CLS
1 20 IF TOT<>10376 THEN PRINT AT 10, 10;"ERROR IN DATA": STOP
1 20 FOR f=64512 TO 64616
1 20 FOR N=64512 TO 64517: READ A: NEXT N
1 20 FOR N=64000 TO 64006
1 20 FOR F=32768 TO 32876
1 20 F0 JR NZ,L5CF8 ;R = #27 (#F0-
1 20 E8 D0 0C C8 C0 20 D0
1 20 DATA 175, 50, 92, 170, 124, 246, 1, 201
1 20 CLEAR 28000: LET S=0: LET T=0
1 20 CLEAR 27999: POKE 23659, 0
1 2, 5, 10, 15
1 1990 C_COOR DEFW #4000 ;
1 1980 TXTADR DEFW TEXT ;
1 1970 RET
1 1960 GO3 LD (C_COOR),HL
1 1950 GO4 LD H,64
1 1940 JR C,GO3
1 1930 CP 88
1 1920 LD H,A
1 1910 ADD A,8
1 1900 GO2 LD A,H
1 190 DATA 33, 114, 128, 17, 0
1 190 DATA 230, 31, 201, 205, 17
1 190 LD A,(HL)
1 190 LD A, L ;
1 190 JR N2, L1 ;
1 190 ADD HL, DE ;
1 190 XOR #80 ;
1 190 ;
1 1890 JR NZ,GO3
1 1880 INC L
1 1870 POP HL
1 1860 LD (DE),A
1 1850 LD A,(ATTR)
1 1840 LD D,A
1 1830 OR 88
1 1820 AND 3
1 1810 RRCA
1 1800 RRCA
1 180 DATA 179, 32, 225, 201
1 180 DATA 17, 91, 219, 254, 17
1 180 DATA 0, 0, 50, 107, 92
1 180 L2 DEC E ;
1 180 LD E, S + 1;
1 180 LD D,A
1 180 LD HL,(POS);
1 180 LD DE,FONT2;
1 180 CALL DOS
1 1790 RRCA
1 1780 LD A,D
1 1770 DEC D
1 1760 CALL LOAD1B
1 1750 DJNZ LP2
1 1740 INC D
1 1730 INC HL
1 1720 LD (DE),A
1 1710 LP2 LD A,(HL)
1 1700 CALL LOAD1B
1 170 WAIT LD HL,IN_1F ;
1 170 DATA 161, 195, 0, 104, 205
1 170 DATA 129, 131, 146, 128, 103, 221, 35, 27, 122
1 170 DATA 128, 34, 59, 0, 195
1 170 AND 7
1 170 PUSH HL ;
1 170 JR Z, P2 ;
1 170 ADD HL, DE ; 6
1 170 ; (
1 1690 LD B,8
1 1680 PUSH DE
1 1670 LD DE,(C_COOR)
1 1660 ADD HL,DE
1 1650 LD DE,(CHARS)
1 1640 ADD HL,HL
1 1630 ADD HL,HL
1 1620 ADD HL,HL
1 1610 LD H,0
1 1600 PUTCHR LD L,A ;
1 160 DATA 50, 58, 0, 33, 32
1 160 DATA 237, 161, 175, 50, 239
1 160 DATA 195, 0, 128, 999: REM END MARKER
1 160 DATA 173, 173, 221, 119, 0, 124, 203, 99, 40, 3
1 160 LD BC, LEN + 1;
1 160 EXX
1 160 DEC D ;
1 160 ADD HL, DE ;
1 160 ADD HL, DC ;
1 160 CALL DOS
1 16 17 18 19 20 21 22 23
1 1590 JR GO4
1 1580 JR NC,GO3
1 1570 CP 64
1 15619": REM : LOAD "TASM3.2"CODE
1 1560 LD H,A
1 1550 SUB 8
1 1540 LD A,H
1 1530 JR NZ,GO3
1 1520 OR A
1 1510 DEC L ;
1 1500 BACK LD A,L ;
1 150 DATA 50, 101, 139, 62, S, 50, 112, 128: REM NO FLASHY START SCREEN
1 150 DATA 34, 85, 205, 62, 195
1 150 DATA 221, 110, 0, 124, 170, 171, 221, 172, 221
1 150 DATA 151, 33, 9, 91, 34
1 150 LD IX, BASE2 ;
1 150 LD A,(DE)
1 150 RL L ;
1 150 LD DE,(CHARS);
1 150 ADD HL, HL ;
1 150 LD A,#D0
1 15 !
1 1490 JR GO2
1 1480 JR NC,GO3
1 1470 LD L,A
1 1460 ADD A,32
1 1450 AND 224
1 1440 ENTER LD A,L ;
1 1430 JR GO1
1 1420 LD (ATTR),A ;
1 1410 CH_ATR LD A,(HL) ;
1 141 LD IY, BASE1 ;
1 1400 RET
1 140 DATA 92, 195, 133, 158, 133681
1 140 DATA 84, 205, 33, 21, 255
1 140 DATA 50, 0, 148, 50, 64, 148: REM INFINITE BALLS (oo-er)
1 140 DATA 33, 0, 0, 34, 170
1 140 DATA 225, 209, 59, 225, 193, 205, 29, 251, 24, 43
1 140 L1 RL H ;
1 140 LD D,A
1 140 DJNZ L1 ;
1 140 LD HL,OUT_1F ;
1 140 ;
1 14 !
1 1390 LD (TXTADR),HL
1 1380 GO1 INC HL
1 1370 LD (C_COOR),DE ;
1 1360 LD E,A ;
1 1350 OR (HL) ;
1 1340 INC HL ;
1 1330 RRCA ;
1 1320 RRCA ;
1 1310 RRCA ;
1 1300 AND 7 ;
1 130 DATA 50, 64, 138, 50, 72
1 130 DATA 50, 164, 155: REM INFINITE MISSILES
1 130 DATA 46, 192, 62, 50, 50
1 130 DATA 209, 191, 55, 8, 249, 233, 49, 65, 251, 221
1 130 DATA 0, 91, 34, 168, 151
1 130 OR 0
1 130 LD D, H ;
1 130 INC HL ;
1 130 ADD HL, HL ;
1 130 CALL DOS ;
1 130 ; IY,
1 130 ;
1 13 !
1 13
1 1290 LD A,(HL) ;
1 1280 LD D,A ;
1 1270 OR 64 ;
1 1260 AND 24 ;
1 1250 CH_POS LD A,(HL) ;
1 1240 RET ;
1 1230 PUSH DE ;
1 1220 LD (TXTADR),HL
1 1210 INC HL
1 1200 LD D,(HL) ;
1 120 LOAD ""CODE: RUN USR 23296
1 120 LOAD "" CODE: RUN USR 23296
1 120 DATA 50, 21, 255, 122, 254
1 120 DATA 227, 254, 48, 242, 175
1 120 DATA 210, 34, 126, 250, 225, 49, 61, 251, 221, 225
1 120 DATA 176, 195, 0, 91, 175
1 120 DATA 161, 50, 167, 151, 33
1 120 RET ;
1 120 AND 7
1 120 POP BC ;
1 120 LD E, L ;
1 120 DI ;
1 120 ADD HL, HL ;
1 120 LD A,#3C ;
1 120 ;
1 12 !
1 1190 INC HL ;
1 118: POKE 16386,251: POKE 16387,
1 1180 USERPR LD E,(HL) ;
1 1170 RET
1 1160 JR NZ,LPPAUS
1 1150 OR C
1 1140 TEXT DEFS 0
1 1140 LD A,B
1 1130 YTXT DEFB 0
1 1130 DEC BC
1 1120 XTXT DEFB 0
1 1120 LPPAUS CALL LOAD1B
1 1110 RET
1 1110 LD (TXTADR),HL
1 1100 EXX
1 1100 INC HL
1 110 LOAD "" CODE: RUN USR 32830
1 110 DATA 91, 1, 11, 0, 237
1 110 DATA 214, 109, 17, 237, 134, 175, 55, 205
1 110 DATA 200, 218, 195, 0, 226
1 110 DATA 176, 62, 205, 50, 236
1 110 DATA 112, 46, 215, 116, 46, 207, 54, 188, 33, 38
1 110 CALL 49152 ;
1 110 LD A,D
1 110 LDIR ; 6
1 110 LD H, O ;
1 110 LD H, 0 ;
1 110 JR P1 ;
1 110 ENT $
1 110 LD HL,OUT_FF ;
1 11 !
1 1090 POP HL
1 1090 LD B,(HL)
1 109 DATA 62, 96, 50, 81, 202, 62, 201, 50
1 1080 INC (HL)
1 1080 INC HL ;
1 108 DATA 195, 137, 97, 62, 195, 50, 80, 202
1 1070 PAUSE LD C,(HL) ;
1 1070 FINIS LD HL,XTXT
1 107 DATA 1, 33, 253, 94, 62, 200, 237, 79
1 1060 JR NZ,SCRL
1 1060 JR GO1 ;
1 106 DATA 33, 137, 97, 229, 51, 51, 1, 242
1 1050 DEC C
1 1050 POP HL
1 105 DATA 243, 237, 94, 33, 41, 236, 229, 235
1 1040 INC DE
1 1040 JR NZ,LP1 ;
1 104 DATA 17, 28, 238, 1, 32, 0, 237, 176
1 1030 INC H
1 1030 DEC C ;
1 103 DATA 238, 194, 50, 202, 96, 33, 147, 195
1 1020 DEC HL
1 1020 POP AF
1 102 POKE 32837, 90: POKE 32778, 90: POKE 32843, 91: POKE 32784, 91
1 102 DATA 86, 176, 34, 233, 96, 58, 202, 96
1 1010 LD (HL),A
1 1010 CALL PUTCHR ;
1 101 DATA 203, 92, 205, 86, 5, 48, 241, 33
1 1000 LP1 PUSH AF
1 1000 INC HL
1 100 LET t=t+(f-23394)*a:NEXT f
1 100 LET t=t+(f-23394)*a : NEXT f
1 100 KN CALL 39015 ;
1 100 IF T-A THEN STOP
1 100 DATA 91, 1, 200, 0, 237
1 100 DATA 66, 79, 85, 178, 67, 89
1 100 DATA 62, 255, 55, 17, 141, 5, 221, 33
1 100 DATA 33, 82, 117, 17, 19
1 100 DATA 241, 205, 86, 5, 49, 0, 0, 221, 33
1 100 DATA 237, 176, 235, 35, 35, 34, 95, 250, 46, 122
1 100 INC DE
1 100 LD L, A ;
1 100 LD L, A ;
1 100 LD BC, 6 ;
1 100 LD D,A ;
1 10 RANDOMIZE USR 15619: REM: LOAD "PROG" CODE 40000
1 10 POKE 23693, 4: CLEAR 24100: LOAD "" CODE
1 10 PAPER 0
1 10 LET TOT=0: FOR N=50000 TO 50084: READ A: LET TOT=TOT+A: POKE N, A: NEXT N
1 10 LET T=0: FOR F=3e4 TO 30043
1 10 LET T=0
1 10 LET CS=0: FOR N=23296 TO 23301
1 10 INPUT A : CLS
1 10 CLEAR 6e4: LET t=0
1 10 CLEAR 65000
1 10 CLEAR 60000: LOAD ""CODE: POKE 65522, 252
1 10 CLEAR 60000: LOAD "" CODE: POKE 65226, 250
1 10 CLEAR 39999
1 10 CLEAR 29877: FOR N=23371 TO 23377: READ A: POKE N, A: NEXT N
1 10 CLEAR 27e3: LOAD "" CODE
1 10 CLEAR 27999: LOAD "" CODE 16384
1 10 CLEAR 26000: LOAD "" CODE: LOAD "" CODE 26880: RANDOMIZE USR 26880: POKE
1 10 CLEAR 25599: LOAD "" CODE 16384
1 10 CLEAR 24064: LOAD ""CODE
1 10 BORDER 0: PAPER 0: INK 7: CLS
1 10 BORDER 0: PAPER 0: INK 0
1 10 BORDER 0: BORDER 0: BORDER 0: BORDER 7: BORDER 1: BORDER 2:
1 10 !
1 1. HL= B*C
1 1 - 6, 9, 7, B, D
1 1
1 0D 8D 07 20 A9 FF
1 0A 0A 0A 0A 0A 0A 0D 0F
1 0A 0A 0A 0A 0A 0A 0D 0B
1 0990 DJNZ SL2
1 0980 RL (HL)
1 0970 SL2 RL A
1 0960 LD B,0
1 0950 AND A
1 0940 DJNZ SL1
1 0930 SL1 SRL (HL)
1 0920 LD B,0
1 0910 SCRL LD A,(DE)
1 0900 LD C,8
1 0890 POP DE
1 0880 POP HL
1 0870 LD (HL),A
1 0860 ATTR LD A,(23695)
1 0840 OR #58
1 0830 AND #03
1 0820 RRCA
1 0810 RRCA
1 0800 RRCA
1 08 8D 00 F8 AD 00
1 08 09 10 11 12 13 14 15
1 08 08 08 08 08 08 0D 0F
1 08 08 08 08 08 08 0D 0B
1 0790 AADDR LD A,H
1 0780 PUSH HL
1 0770 LD L,A
1 0760 ADD A,E
1 0750 RRCA
1 0740 RRCA
1 0730 RRCA
1 0720 AND 7
1 0710 LD A,D
1 0700 LD H,A
1 07 A0 00 A9 A6 8D
1 07 20 A2 FF 9A A0 00 8C
1 0690 ADD A,#40
1 0680 AND #18
1 0670 ADDRZ LD A,D
1 0660 LD (SL2-1),A
1 0650 LD (SL1-1),A
1 0640 SUB H
1 0630 LD A,L
1 0620 LD H,A
1 0610 ADD A,L
1 0600 JR NC,CHPL1
1 06 20 A9 F0 8D 06 20 A9
1 06 20 8C 06 20 A9
1 06 06 06 06 06 06 0C 0C
1 0590 SUB L
1 0580 CHPL1 INC E
1 0570 LD L,8
1 0560 LD E,255
1 0550 ADD A,E
1 0540 ADD A,A
1 0530 LD E,A
1 0520 ADD A,A
1 0510 LD A,E
1 0500 CHECK LD DE,(XTXT)
1 0490 PUSH HL
1 0480 ADD HL,DE
1 0470 LD DE,15360 ;FONT-256
1 0460 ADD HL,HL
1 0450 ADD HL,HL
1 0440 ADD HL,HL
1 0430 LD H,0
1 0420 LD L,A
1 0410 PUSH HL
1 0400 PRSYM EXX
1 04 8D 00 60 40 CA 9A 58
1 0390 JR WRIT1
1 0380 WRIT4 LD A,"?"
1 0370 JR WRITE
1 0360 INC HL
1 0350 LD (XTXT),A
1 0340 LD A,(HL)
1 0330 INC HL
1 0320 LD (YTXT),A
1 0310 LD A,(HL)
1 0300 JR NZ,WRIT4
1 03 C8 D0 F7 B9 00 F9 D9
1 0290 WRIT3 CP 22
1 0280 JR WR2
1 0270 INC HL
1 0260 LD (23695),A
1 0250 LD A,(HL)
1 0240 JR NZ,WRIT3
1 0230 WRIT2 CP 16
1 0220 JR WRITE
1 0210 WRIT1 CALL PRSYM
1 0200 JR C,WRIT2
1 0190 CP 32
1 0180 RET Z
1 0170 AND A
1 0160 INC HL
1 0150 WR2 LD A,(HL)
1 0140 LD (XTXT),A
1 0130 XOR A
1 0120 WR1 LD (YTXT),A
1 0110 XOR A
1 0100 JR C,WR1
1 01 - RIGHT
1 0090 CP 24
1 0080 INC A
1 0070 LD A,(YTXT)
1 0060 JR C,WR2
1 0050 CP 42
1 0040 WRITE LD A,(XTXT)
1 0030 LD HL,TEXT
1 0020 ENT
1 0010 ORG 50000
1 00000001,00100000,01010000,001100
1 00000001,00000001,00000001,00000010,00000011,00000011,00000011
1 00 80 A9 20 8D 00 E0 A9
1 00 60 C9 01 F0 0B 85 20
1 00 60 A9 03 8D FB FF 8D
1 00 20 8D 01 20 A9
1 00 03 FF FF FF FF FF FF
1 00 03 D0 ED C8 D0
1 00 01 02 03 04 05 06 07
1 0....7 !
1 .MLN=65536-[
1 .33-71-71.
1 . ZX 96/1-2).
1 . UTILISE -
1 . UNPACK -
1 . UNLOAD -
1 . STRIP -
1 . SPECTRUM
1 . SOUND -
1 . SCROLL -
1 . SCANNER:
1 . REPORTS:
1 . PACK -
1 . OPTIONS, REPORT, SCANNER
1 . MOTION -
1 . INFORM -
1 . GROWTH (REDUCE) -
1 . FORBIDEN -
1 . EXPLODE -
1 . END TURN:
1 . END MOVE -
1 . CONTROL -
1 . CHANGE -
1 . BATTLE -
1 . 94-96).
1 . 255*256=65280
1 . 144-26-00
1 . 1
1 . 00,01,...,63 -
1 . .RLCT -
1 . (x-1,y), (x+1,y), (x,y-1), (x,y+1), (x-1,y-1), (x-1,y+1), (x+1,y-1),
1 . BUTCHER - 10
1 . 16X16MC
1 . |
1 . 4000
1 .
1 .
1 .
1 .
1 .
1 -------------------------------------------------
1 ------------------------------------------------
1 -------------------------------------------
1 ------------!-----------------------------
1 -------- - - - --
1 ,0,0,0,10,15
1 , multicolor 16x16 (
1 , multicolor
1 , ZX-COVOX.
1 , SPECTRUM -
1 , MON6502
1 , GAME OVER.
1 , ASSASSIN - 6
1 , ADDRES2 -
1 , 10. "SPECTRUM".
1 , JET PACK'
1 +*))('&%%$#""!
1 *SPIDER MAN.
1 *KENTILLA,
1 *******************************************************************************
1 ***************************************************************************** LD C,16
1 **************************************************************************
1 ************************************************************************
1 ******************************************************************
1 ****************************************************************
1 ***************************************************************
1 **************************************************************
1 ***********************************************************
1 *********************************************************
1 ***********************************************
1 *********************************************
1 *****************************************
1 ***************************************
1 ***********************************
1 ****************************
1 ***************
1 **************
1 ), HAMPSTEAD, CAMBRIDGE
1 ) - 10000
1 ) - 50000
1 ) - 20000
1 ) 1 -
1 )
1 (x+1,y+1).
1 (c) Wallks, 1996.
1 (c) Alex,
1 (THRALL, REAPER
1 (SINCLAIR/KEMPSTON)
1 (FORCE CABINET WITH SCREWDRIVER)
1 (EXAMINE DESCRIPTION)
1 (EXAM NEATHER, TIE ROPE TO
1 (20x4000=80000
1 (#ADDR),HL
1 'CONVER-Utility' & Y.Kovalevsky
1 #F899 BIT 7,(HL)
1 #F895 BIT 7,E
1 #F88A SLA D
1 #C024=#5D
1 #C023=#50
1 #C022=#C3
1 #C01B=#5D
1 #C01A=#40
1 #C019=#C3
1 #8000 - #FFFF.
1 #7685: C3 FF 75 JP L2 ;
1 #7682: 11 00 21 LD DE,#2100 ;
1 #7680: ED 4F L1 LD R,A ;
1 #7606: 10 78 DJNZ L1 ;
1 #7604: 20 F9 JR NZ,L2 ;
1 #7603: 14 INC D ;
1 #7602: 15 DEC D ;
1 #7600: ED 4F LD R,A ;
1 #75FF: 1B L2 DEC DE ;
1 #75FC: C3 80 76 JP L1 ;
1 #75FA: 3E 02 LD A,#02 ;
1 #75F8: 06 10 LD B,#10 ;
1 #1F #LOW #HIGH -
1 #1E #LOW #HIGH -
1 #16 #YY #XX -
1 #10 #NN -
1 #06 #NN #MM -
1 "ZX-SPECTRUM"
1 "THE STUN REPORTER".
1 "THE STUN REPORTER"
1 "SUPER ELITE".
1 "STRATEGY")
1 "SPECTROFON",
1 "SCORPIONE".
1 "SATISFACTION MAGADEMO" (
1 "NO 128K MEMORY!":
1 "LD SP,#ADDR",
1 "LD HL,(#XXXX)" + "PUSH HL" = 27
1 "Invalid file name",
1 "BRIGHT", "FLUSH"
1 "Adventure Building System (ABS). ABS
1 ", 1994, N4,
1 "), 5000$.
1 " (ORNAMENT),
1 " (LEAVIE'S
1 " (DODGY GEAR) .
1 ! (A STURDY SCREWDRIVER).
1 | |
1 seed/65537.
1 rome buffer.
1 multucolor'
1 multicolor,
1 multicolor'a
1 multicolor!
1 multicolor -
1 multicolor "
1 megademo).
1 megademo
1 adventure
1 adventure
1 [ENTER],
1 [EDIT] -
1 ZX-Spectrum".
1 ZX-Spectrum
1 ZX-SPTCTRUM
1 ZX-SHELL
1 ZX SPECTRUM.
1 ZX SPECTRUM.
1 ZX SPECTRUM".
1 ZX SPECTRUM"
1 ZX SPECTRUM
1 ZX FORUM,
1 ZX 95/4,
1 XOR, AND, XOR.
1 XOR, AND, OR
1 X(j) -
1 X multicolor,
1 WOODEN FENCE
1 WINTER GA-
1 WE ACCEPT?
1 VENTURAMA.
1 VAN HORNE,
1 VAL "49152",VAL "10448"
1 V. MAKAREVICH 1991
1 UMBARG, VERDAN, TYRIAN,
1 Technology Research
1 TUNDRA.
1 TRACK ZERO.
1 TR-DOS HOBBIT'
1 TR-DOS 5.03:
1 TR-DOS 5.03.?
1 TR-DOS 5.03.
1 TR-DOS 5.03.
1 TR-DOS 5.03
1 TOTAL ECLIPSE
1 TIGERLESS
1 THE SCEPTRE.
1 TASM128,
1 TASM 3.0,
1 TASM 3.0 -
1 TASM 128
1 T = 5 mS.
1 Spectruma
1 Spectrum
1 Sinclair -
1 Scorpion,
1 Scorpion'
1 Scorpion
1 Savage, Turtles, Three Weeks in
1 Savage, Turtles
1 Savage, Stainles Steel.
1 SYSTEM 3, 1989)
1 SYMBOL SHIFT...
1 SWIV, DIZZY-3, SATISFACTION MEGADEMO (
1 SUPER BRAIN
1 STS, MIRACLE 128, SIMPSONS 128, INSULT,
1 STS 3.3,
1 STRATEGIC
1 STRATEGIC
1 STEEL FENCE
1 STANZA.
1 ST506/412.
1 SPIDERMAN
1 SOLAR PANELS
1 SNARGSBY
1 SLA E, RL D
1 SINCLAIR 1.
1 SIM SITY
1 SHARE DROID BODY
1 SHADOW MONITOR.
1 SCR=#C000
1 SCORPION ZS-256.
1 SCORPION
1 SAVE "TRDOS"CODE 0,16384.
1 SAM SPOON
1 Retry, Abort, Ignore,
1 RUSTY OLD KEY
1 RST 56 (38H).
1 RESOURSE
1 REMOTE DROID
1 REM : LOAD "ind_ay"CODE
1 REBEL STAR.
1 REBEL PLANET.
1 RANDOMIZE USR 0.
1 RANDOMIZE
1 RAM_DRIVE.
1 RAM_DRIVE.
1 PROFI 1024K,
1 PRINT USR ...
1 PRINT USR ...
1 PREPARE.
1 PREDATOR,
1 POKE 23952,0.
1 PER ASPERA AD ASTRA,
1 PENTIUMa.
1 PAUSE = 1.
1 PATTERN,
1 PAPER. BRIGHT
1 PANTANIUM POWER PAK'
1 OUT (253),A
1 OUT (#FE),A
1 OUT (#FD),A.
1 ORNAMENT EDITOR'
1 OPTION 3.
1 NORTON-COMANDER.
1 NOISE_FX
1 NETHER EARTH
1 N6/95 (MUGY).
1 N2 (#4000 - #7FFF)
1 N1 (#C000 - #FFFF)
1 N 149-"SCORPION".
1 Microsoft.
1 MULTOCOLOR -
1 MULTICOLOR
1 MREQ (Z80,
1 MREQ --------- --- ----
1 MON6502,
1 MFM/RLL,
1 MEGAZAYR'
1 MEGA FORCE FIELD
1 MADAM WEB,
1 LORD FISH,
1 LOGO-RUS
1 LOADER -
1 LOAD-MERGE,
1 LOAD-MERGE
1 LOAD / SAVE.
1 LISTEN BOSS ... WE SHO-
1 LINETEST.
1 LINE 10 ;
1 LINE 10 ,
1 LDIR: RET.
1 LDI: JP PE,$-2,
1 LDI (LDD)
1 LD SP,(#ADDR)?"
1 LD SP,#ADDR
1 LD A,B: CALL #22B1.
1 LD (#ADDR),DE
1 LATHE RE-
1 LAST BATTLE
1 LASER SQUAD
1 LASER BASIC-
1 LASER
1 KEY-INPUT.
1 KEMPSTON MOUSE.
1 KEMPSTON JOYSTIK.
1 KEMPSTON JOYSTIK'
1 KEMPSTON JO-
1 JP 23872 (23888),
1 JP #33C3
1 JOIN FRIEND.
1 ISLINGTON,
1 INVENTORY,
1 INSTALL,
1 INC H / DEC H.
1 IM 0, IM 1, IM 2.
1 HOTELIER'
1 HEY CHIEF!,
1 HEAVY DUTY
1 HAMPSTEAD
1 HALLIS,
1 GEORGE,
1 GENERAL SUPPLIES (
1 GENERAL SUPP-
1 GAME OVER.
1 FREEZE.
1 FLOPPY DISCS
1 FIT TIN TO PACK.
1 FIRELORD.
1 FILTER.
1 FADE-OUT.
1 EXTRA SEEDS
1 ENIGMA VA-
1 ENERGY EGGS,
1 EDIT SPACE.
1 Dundee.
1 DROID BATTERY
1 DOS (IS DOS, CP/M)
1 DOS #3D2F,
1 DISK-DOCTOR'
1 DESCREPIT EAST-WEST PAS-
1 DEATH TRAP
1 DD/DS (2D/2S).
1 DCU 8.02.
1 DAVE PERRY,
1 D$="" THEN LET ADR=49152: GO TO
1 CURSOR,
1 COMPARTMENT
1 CMR0 (#7FFD).
1 CLK --- --- --- --- ---
1 CD C3 33.
1 CARRIER COMMAND.
1 CALL adress).
1 CALL WAIT).
1 CALL START
1 CALL LOAD1B;
1 CALL LOAD1B.
1 CALL LOAD1B
1 CALL BAR6.
1 CALL 38H),
1 CALL 2050
1 CALL 2050
1 Basic-48 (
1 BUTCHER,
1 BREAK (SPACE)
1 BIO GEM,
1 BEWITCH, PETRIFY, CHARM
1 BDIR,BC1)
1 BDIR (27)
1 BC1 (29)
1 BAZOOMA ROOMA!
1 BATTLE COMMAND
1 BARBET WIRE
1 Arkanoid-1.
1 Arkanoid'
1 Alladin,
1 Advanced Drive
1 AY-3-8910.
1 AY - CHIP.
1 AXD-0310479.
1 AUSTRALIA,
1 ATTR_T (23695=#5C8F)
1 ATM-TURBO 512-
1 AT -8910
1 ASSASSIN'
1 ART STUDIO,
1 ARMOURED PREDATOR'
1 AF, BC, DE, HL, IY.
1 ADVENTURE PROJECT. (
1 ADSENT.
1 ADDRES1 -
1 ADD A,#30.
1 A0-A6 (R)
1 A0-A6 (PC)
1 A0-A15 /\ /\ /\
1 A mod 4 = 1
1 A = 3B/L,
1 ==>|
1 < DATA >,
1 : RLD ; RRD
1 : PUSH IX ; ADD IX,reg16 ; ADC HL,reg16
1 : NEG ; IM 0/1/2
1 : LOAD "filename" CODE
1 : LD reg8,(IX+d) ; CP (IX+d)
1 : LD reg8,(HL) ; CP #00 ; ADD A,#00
1 : LD reg16,(#NNNN)
1 : LD reg16,#NNNN ; INC IX ; DEC IX
1 : LD IX,#NNNN
1 : LD BC,#7FFD:
1 : LD A,(#NNNN)
1 : INC reg16 ; DEC reg 16
1 : INC (HL) ; ADD HL,reg16 ; OUT (#NN),A
1 : IN reg8,(C) ; OUT (C),reg8
1 : CPI ;CPD ; LD HL,(#NNNN)
1 : CALL #NNNN
1 : 255 REM 34-
1 : "TAKE RED APPLE"
1 990, 1000,
1 93/9-10, 11-12
1 90 LOOP2 PUSH BC ;
1 90 JR N1 ;
1 90 EXX
1 90 SUB 32 ;
1 90 PUSH BC ;
1 90 ORG #FC00 ;
1 90 LD D, 6 ;
1 90 JP NC,O9F6H;
1 80 L1 INC HL ;
1 80 CALL 49157 ;
1 80 JR Z,L4
1 80 LD L, 0 ;
1 80 JP NC,#O9F4;
1 80 CP 128 ;
1 80 LD B,SPEED ;
1 80 ;
1 768 - 64*8 = 768 - 512 = 256
1 74ALS161 (1533
1 71680 (69888)
1 70000).
1 70 HALT ;
1 70 LD BC,NLEN +1;
1 70 AND A
1 70 LO B, 64 ;
1 70 JP C,O9F4H ;
1 70 CP 95 ;
1 70 RET Z ;
1 70 ; #0100
1 60 LOOP1 ADD A,E ;
1 60 L2 LD A,(HL)
1 60 LEN EQU #0100 ;
1 60 JR Z,KN ;
1 60 LD IX, BASE2 ;
1 60 LD DE,FONT2;
1 60 JP C,O9F4H ;
1 60 CP 32 ;
1 6. BOBSLEY
1 58...5F,
1 56 LD IY, ADDR
1 55 DI
1 512x256,
1 512x240 (
1 512 - 384 =
1 50 DO_FX XOR A ;
1 50 CP 32 ; "
1 50 LD E,B
1 50 ORG 40000 ;
1 50 LD HL,FONT1;
1 50 ENT$
1 50 CP 32 ;
1 50 ;
1 5. FREE SKATING
1 5-25 Hz.
1 470 - 590
1 4000h-4020h.
1 40 N1 LD A,(23560) ;
1 40 F_OUT LD E,255 ;
1 40 LD HL,22528
1 40 ORG 30000 ;
1 40 ORG 23296 ;
1 40 ORG #FA46 ;
1 40 ;
1 40
1 4. SKI JUMP
1 390-410.
1 38H (56)
1 320x224=71680
1 312x224=69888
1 30 PATTERN
1 30 L1 LD BC,3
1 30 POS EQU 23681 ;
1 30 NLEN EQU 00192 ;
1 30 FONT2 EQU #FA00 ;
1 30 CHARS EQU 23606 ;
1 30 BASE2 EQU #9C40 ;
1 30 CALL 49152 ;
1 30 JR DO_FX ;
1 3. SPEED SKATING
1 3,8,16 (D15)
1 3,1415...
1 2^16=65536
1 256*8=2048 (256=INC D))
1 255 (#FF) -
1 242 #20
1 240 - 270.
1 22528+Y*32,
1 22528+Y*32+31,
1 210 TEXT DEFS 1
1 200 -300
1 20-26 (?)
1 20 F_IN LD E,1 ;
1 20 POS EQU 23681 ;
1 20 FONT2 EQU #FD00 ;
1 20 FONT1 EQU #3D00 ;
1 20 BASE2 EQU 40000 ;
1 20 BASE1 EQU #7530 ;
1 20 CALL 38986 ;
1 20 ENT $
1 2. BIATHLON
1 1830-1880.
1 18...1F, a
1 16X16MC.
1 16(#10).
1 15 -
1 1366 (#0556)
1 13 (D70)
1 113, 114, 120, 121, 124, 125, 126,
1 100000...
1 100-1000
1 10 ORG 45000
1 10 ORG 40000
1 10 ORG 50000
1 1. HOT DOG
1 1-2 SIDEWINDER'
1 1,3,4,5,6,8,16.
1 1,20,50,30
1 04h,0Ch,14h,1Ch.
1 01011111 = 95,
1 00111111 = 63.
1 0...127,
1 0,90,180
1 - Xecutor, Zunaps, Octan, Puzznik
1 - TRACK 2&3.
1 - Shase H.Q. 128, Arkanoid, Dark Fusion
1 - SAVE "TASM 3.2" CODE 49152, 10448
1 - MAGMA, LTD.
1 - INVALID COLOR, DISK ERROR
1 - HOBBIT'
1 - HCAP, LUMP
1 - F_OUT.
1 - DELAY (
1 - Arkanoid, Shosk
1 - 50 Hz (
1 - 48").
1 - 32768 (#8000).
1 *HEAVY ON THE MAGICK.
1 ***************************************************************************
1 **************************************************************************
1 ***********************************************
1 **********************************
1 *******************************
1 ******************************
1 ) 3
1 (ZX-MANIACS)
1 (WINE-TASTE).
1 (V-ROM).
1 (TURN TORCH) -
1 (TURN SET),
1 (TRANSLATE),
1 (TRAFFIC)
1 (THELMAN PORT) -
1 (TAP CRYSTAL WITH
1 (TAKE PIP-
1 (TAKE BATT).
1 (Stellar company inc),
1 (Selina Space Studio).
1 (STIRRUP-SHAPED BOULDER).
1 (SPANKING NEW)
1 (SHADOW)?
1 (ROW BOAT).
1 (RANDOMIZE
1 (PUT BATT IN
1 (PURCHASE COTTA-
1 (PULL BOAT),
1 (PULL BELL).
1 (PULL BUSH).
1 (OPEN NEWS),
1 (NACH.).
1 (MITCHELL & ROSSIA SOFT),
1 (MEET CHUBBY).
1 (MARRY PIP-
1 (MALEX from Legionsoft), 1996.
1 (Logic games)
1 (LOW+256*HIGH)
1 (LOCK),
1 (LIGHT ON)
1 (LEAVE).
1 (KNOT HANK).
1 (JUMP) -
1 (IT'S A STRONG SUP-
1 (HYDRAULIC).
1 (HARBINGER3),
1 (GIVE REPORT TO CHUBBY).
1 (GIVE MEMO TO CHUBBY).
1 (EXAM BED).
1 (DROP ROPE).
1 (DIN SOFT)
1 (DIAMOND)
1 (D.V.P. Computing), 1996
1 (Colonel),
1 (CUT ROPE).
1 (CONTROL CENTRE).
1 (CONNECT PAK
1 (CLOSE),
1 (CALL DOREEN).
1 (BUFF+4)
1 (BUBBLE HELMET).
1 (BOARD TAXI).
1 (ASK HOTELI-
1 (ACTIVATE
1 (8*4=32,
1 (64K=256
1 (256x192)
1 (192*256)
1 (1)
1 ((BC-1)x26+21
1 ("RESOURS").
1 ( IM2 )
1 ( GUTZ, AGENT -X, URIDIUM...).
1 ( "A" - ACTION, "S" -
1 ( B,C,D,# )
1 'Read only' (
1 & MASTERSOFT
1 #FF (254, 255).
1 #CA,#31,30.
1 #C000 - #FFFF.
1 #A1,#FE.
1 #A1 ; #FB,
1 #81FF, #8200,
1 #8000 - #BFFF
1 #7F
1 #7F
1 #7680-#7687
1 #7680 - #7687.
1 #75FF-#7607.
1 #75FF - #7607
1 #5CFE-5D01,
1 #5C00-5C01
1 #4000-#8000 ("
1 #4000 - #7FFF,
1 #07 (#02)
1 #06 #07
1 #06
1 #06
1 #0556 (LOAD BYTES)
1 #05 #06 #07
1 #05
1 #04C2 (SAVE BITES)!
1 #04 #05
1 #04 #05
1 #04
1 #03
1 #03
1 #02 (#07)
1 #02 (#06)
1 #02 #03 #04
1 #02
1 #02
1 #00 - #FF.
1 #00 #01
1 "slower" -
1 "faster"-
1 "ZX-SPECTRUM-48"
1 "ZX-SPECTRUM",
1 "ZX-SPECTRUM"
1 "V_PRINT",
1 "TOP 10"
1 "THROW APPLE TO TREE",
1 "TASM-128".
1 "TASM 128".
1 "TANK WARS"
1 "TAKE APPLE"
1 "Scorpion ZS256"" (
1 "Scorpion ZS 256",
1 "STRATEGY"
1 "SPEED" +
1 "SKORPION ZS-256".
1 "SCORPION'
1 "SCORPION",
1 "SATISFACTION MEGADEMO",
1 "RESOURS".
1 "RED HEAT" (
1 "Profi",
1 "PRINT".
1 "POP HL"
1 "OPTION SELECTOR'
1 "Mag OS"
1 "MEGADEMO".
1 "IS-DOS").
1 "INSULT MEGADEMO" Code Busters.
1 "INSULT MEGADEMO v
1 "INK", "PAPER",
1 "I BALL".
1 "FAIRLIGHT 1",
1 "DIG SAND WITH STEEL KNIFE".
1 "CP" ( 1->, 2->),
1 "CONTINUE
1 "BIG RUNLINE" -
1 "AcashiSoft"
1 "APPLE" ,
1 "APPLE"
1 "ADVENTURE PROJECT".
1 "ADVENTURE GAMES"
1 "A.T.F.".
1 "90" DEC.
1 "-", "X"-
1 " OPTION SELECTOR".
1 " MOVE A FLOATING-POINT NUMBER"
1 |
1 seed=seed+75
1 seed=seed+1
1 seed=seed mod 65536 [65537?]
1 reg8 - A,B,C,D,E,H,L (
1 reg16 - BC, DE, HL
1 multicolor'
1 d -
1 __
1 ZX-SPECTRUM
1 TYPE START PRESSES.
1 TR DOS,
1 TR DOS
1 TERRORMOLINOS,
1 TERRORMOLI-
1 SPARE ROOM
1 SPACE.
1 SOUND TRACKER'a.
1 SNARGSBY.
1 SAMPLE EDITOR'e
1 PRESS FIRE TO START WITH
1 PRACTICE,
1 OUT (#FD),
1 N1-2 1996"
1 MEGA BIG RECORDS.
1 LD A,R.
1 KILL FRIEND, KILL YOUR
1 KEMPSTON-
1 HYDROMAN'
1 DESCEND.
1 COMPUTER LABORATORY,
1 ADVENTURE
1 : RLC (IX+d) ; SET 0,(IX+d) ; EX (SP),IX
1 : NOP ; LD reg8,reg8
1 90 DATA 238,238,2388,0,238,238
1 80 RANDOMIZE USR INIT
1 70 RANDOMIZE USR NEXT: PAUSE 1
1 70 OUT 65533,13: OUT 49149,0
1 64*6 = 384
1 60 RANDOMIZE USR INIT
1 60 OUT 65533,12: OUT 49149,18
1 50 PLOT X,Y: GO TO 30
1 50 OUT 65533,10: OUT 49149,16
1 50 FOR Y=8 TO 21: PRINT AT Y,2
1 4017h. MON6502
1 40 RESTORE 90: FOR N=0 TO 7: R
1 40 OUT 65533,9: OUT 49149,16
1 40 LET Y=175*RND
1 35 LET Z=RND
1 33 LET NEXT=VAL N$
1 32 INPUT "NEXT "; LINE N$: IF
1 31 LET INIT=VAL I$
1 30 POKE 16384,243: POKE 16385,
1 30 OUT 65533,8: OUT 49149,16
1 30 LET X=255*RND
1 30 INPUT "INIT "; LINE I$: IF
1 20 RANDOMIZE USR 15619: REM :
1 20 RANDOMIZE 1
1 20 OUT VAL "32765",VAL "20": R
1 20 OUT 65533,7: OUT 49149,7
1 20 DATA 190,0,0,0,0,0,0,126,16
1 17 LET ADR=VAL D$
1 16 INPUT "ADRES "; LINE D$: IF
1 15 INPUT "FILENAME "; LINE A$
1 11 GO TO 8
1 10 POKE VAL "23693",VAL "7": P
1 10 PAUSE 1
1 10 OUT 65533,6: OUT 49149,31
1 10 INK 7: PAPER 0: BORDER 0: C
1 10 FOR I=0 TO 13: READ A: OUT
1 10 BORDER 0: INK 7: PAPER 0: C
1 - 7530 h.
1 - 16384.
1 - LINETEST -
1 *MAGNETIC
1 *********************************************************************
1 (TUG JOYS-
1 (TAKE PHOTO).
1 (STALING-
1 (SHOOT GUN).
1 (READ BOOK): "
1 (LIGHT MATCH).
1 (LEAVE BOAT,
1 (INSERT FILM).
1 (FOLDED NEWSPA-
1 (DROP BOTTLE)
1 (DESCEND
1 #NNNN -
1 #NN -
1 #0D,#80,#AA,
1 "STUNT REPORTER",
1 "STAR RANGERS"
1 "RANGERS";
1 What a save! -
1 What a Goal! -
1 WISE -
1 WEAPON -
1 WAY IS BLOCKED -
1 WARNING:
1 WAIT FOR -
1 VIEW -
1 VAMPIRES, SPIDERS & RATS (
1 V
1 UNWARP,
1 UNRULY -
1 That was close -
1 TYPE IN YOUR NAME. MAX 16
1 TREACHEROUS -
1 TRANSFER MARKET? Y/N (
1 TRACK -
1 TOTALLY TACKY PUPPETS (
1 TIRELESS -
1 TIMID -
1 THREATEN -
1 THRALL -
1 THANE -
1 SWITCHES -
1 SWIFT -
1 SUE THE SCUM -
1 STRONG -
1 STEEL FENCE STORE -
1 STATUS -
1 STALK -
1 SPOTTED THE ENEMY -
1 SPEED SKATING -
1 SPACE -
1 SORRY, YOU HAVEN'T DISK DRIVE,
1 SLOW -
1 SKIJUMP -
1 SICK CAR CHASES (
1 SHIELD -
1 SEND BOYS AROUND -
1 SEED IN STOCK -
1 SAVAGE -
1 Receipts -
1 RUTHLESS -
1 REAPER -
1 Penalty. ref -
1 PROTECT -
1 PRINT USR ADR : REM NAME,
1 PINEWOOD (
1 PETRIFY -
1 PETRIFY -
1 PERSUASIVE -
1 PERSUADE -
1 ORGANIC SUPPLIES -
1 OCTOPLAST DOOR
1 OBJECT -
1 OBEDIENT -
1 NUMBER -
1 Multicolor -
1 MYSTIC -
1 MUSHROM PACKED -
1 MINES -
1 MIND-NUMBING GUITAR POSES
1 MERCIFUL -
1 MASTERFUL -
1 LUSTY GIRLIES MUD WRESTLING
1 LOYAL -
1 LOSSES IN TOWN -
1 LOSSES IN DISMANTLE -
1 LOSSES IN ACTION -
1 LOSS -
1 LOAD, SAVE, VERIFY -
1 KILL -
1 JOIN -
1 INSULT -
1 INCISIVE -
1 II. LD A, config
1 I. LD A, config III. LD REG, config
1 HOT DOG -
1 HOLLYWOOD (
1 HERALD -
1 HEALTH -
1 HARASS -
1 GREASY TOY BOYS PUMPING IRON
1 GOAL IS GAINED -
1 GIVE TO -
1 GIVE -
1 GEM.
1 Foul ref. freekick -
1 FREE SKATING -
1 FOOLISH -
1 FOOL -
1 FOLLOW -
1 FLAGGIN -
1 FIRST DEMAND -
1 FIRE -
1 FIND -
1 FENCING STORE -
1 FEEBLE -
1 EXIT -
1 ENEMY -
1 END TURN -
1 DUNDEES EUROPEAN CHALLENGE
1 DONE -
1 DO NOTHING -
1 DEST -
1 DEPTH -
1 DEPOSIT SEEDS -
1 DEPOSIT MUSHROM -
1 DEFB #88 -
1 DEFB #87 -
1 DAYS AMOUNT -
1 DAMAGE -
1 Crowf -
1 CURSE -
1 CURSE -
1 CRICKLEWOOD (
1 CREDIT -
1 COWARDLY -
1 COURAGE -
1 COLLECT TRAPS -
1 COLLECT SEEDS -
1 COLLECT PANELS -
1 CLEAR -
1 CHARM -
1 CHARM -
1 CHARGE -
1 CHALLENGE -
1 CARDS -
1 CARDS (
1 CANCEL -
1 CABLE -
1 BUY THE ...
1 BUFF -
1 BRIBE -
1 BRAVE -
1 BOLD -
1 BOBSLEY -
1 BLUNT -
1 BIATHLON -
1 BEFRIEND -
1 BARBED WIRE STORE -
1 BAHAMAS (
1 B RLE -
1 AVOID -
1 ASSASSIN -
1 ARMOUR -
1 ADSENT -
1 A=#FF -
1 A=#00 -
1 90 DATA 0,0,10,6,151,34,0,34,0,0,0,10,6,150,48,0
1 9 RANDOMIZE USR 38E3
1 9 CANCEL -
1 80 POKE I,255 : POKE (I+1),255
1 8 SCANNER -
1 8 RANDOMIZE USR 49158
1 70 NEXT I
1 7 REPORTS -
1 7 REM **
1 60 POKE (I+6),A
1 6. RELEASE (
1 6 OPTIONS -
1 6 NEXT N
1 50 NEXT J : LET A=A+1
1 5. RECORD (
1 5 NEXT UNIT -
1 5 FOR K=0 TO 14: PRINT AT N,K;"-": NEXT K
1 40 READ S : POKE (1+J),S
1 40 RANDOMIZE USR 25000
1 4.6. COMICS (
1 4.5. FOODS (
1 4.4. DRINKS (
1 4.3. CLOTHERS (
1 4.2. JEWELS (
1 4.1. CARS (
1 4. GIFTS.
1 4. GIFTS -
1 4 NEXT TOWN -
1 4 FOR N=0 TO 2
1 30 RANDOMIZE USR 25165 : CLS : PAUSE 0
1 30 FOR J=0 TO 15
1 3. PUBLICITY.
1 3. PUBLICITY -
1 3 SELECT -
1 3 REM
1 2340 BUFF DEFS 256
1 2330 SECTRK DEFW 0
1 2320 LENSEC DEFB 0
1 2310 LEN DEFW 0
1 2300 START DEFW 0
1 2290 DATA DEFM "FileNameC"
1 2280 JP #3D2F
1 2270 DOS PUSH IX
1 2260 LD IX,#2F65
1 2250 ON_DSK DI
1 2240 RET
1 2230 EXX
1 2220 POP HL
1 2210 LD (#5C00),HL
1 2200 LD (#5CFE),DE
1 2190 LD (#5D00),BC
1 2180 EXX
1 2170 RET NZ
1 2160 BIT 0,C
1 2150 EXIT LD (IS_TRK+1),DE
1 2140 DJNZ L1
1 2130 INC D
1 2120 L5 LD E,0
1 2110 JR EXIT
1 2100 M4 DJNZ L3
1 2090 LD (#5CFF),A
1 2080 LD A,E
1 2070 JR NZ,M4
1 2060 BIT 0,C
1 2050 JR NZ,L5
1 2040 BIT 4,E
1 2030 INC E
1 2020 INC H
1 2010 POP HL
1 2000 POP DE
1 20 RESTORE
1 20 RANDOMIZE USR 15619 : REM : LOAD "SCREEN$" CODE 16384
1 2.1.5. STADIUMS -
1 2.1.4. CONCERT HALLS -
1 2.1.3. UNIVERSITIES -
1 2.1.2. CLUBS -
1 2.1.1. PUBS -
1 2. GIG -
1 2. GIG -
1 2 LEAVE -
1 2 BORDER 0: PAPER 0: INK 7: CLS
1 1990 POP BC
1 1980 M3 CALL DOS
1 1970 LD IX,#3F0A
1 1960 JR NZ,M3
1 1950 BIT 0,C
1 1940 LD IX,#2F1B
1 1930 PUSH BC
1 1920 PUSH DE
1 1910 M2 PUSH HL
1 1900 LD (#5D00),HL
1 1890 LD (#5CFF),A
1 1880 LD A,E
1 1870 JR NZ,M2
1 1860 L3 BIT 0,C
1 1850 POP DE
1 1840 POP BC
1 1830 CALL DOS
1 1820 L2 LD IX,#2F4D
1 1810 LD A,#2C
1 1800 JR NC,L2
1 1790 LD A,#3C
1 1780 LD C,A
1 1770 RRA
1 1760 OR A
1 1750 LD A,D
1 1740 PUSH BC
1 1730 L1 PUSH DE
1 1720 M1 DI
1 1710 LD (#5C00),A
1 1700 XOR A
1 1690 EXX
1 1680 LD BC,(#5D00)
1 1670 LD DE,(#5CFE)
1 1660 LD HL,(#5C00)
1 1650 PUSH HL
1 1640 EXX
1 1630 JR NZ,M1
1 1620 DRIVER BIT 0,C
1 1610 LD HL,BUFF
1 1600 CONT2 LD B,1
1 1590 SAVEL LD C,6
1 1580 JR CONT2
1 1570 LOADL LD C,5
1 1560 RET
1 1550 LD A,B
1 1540 LDIR
1 1530 LD HL,BUFF
1 1520 LD B,0
1 1510 LD BC,(LEN)
1 1500 POP DE
1 15 FOR I=ADR TO ADR+1600 STEP 16
1 1490 CALL LOADL
1 1480 LOAD8 PUSH HL
1 1470 LD DE,(IS_TRK+1)
1 1460 RET Z
1 1450 DEC C
1 1440 INC C
1 1430 POP BC
1 1420 CALL DRIVER
1 1410 LOAD7 LD C,5
1 1400 PUSH BC
1 1390 JR Z,LOAD8
1 1380 DEC B
1 1370 LOAD5 INC B
1 1360 LD D,(IX+15)
1 1350 LOAD6 LD E,(IX+14)
1 1340 LD B,(IX+12)
1 1330 LD C,(IX+11)
1 1320 LD H,(IX+10)
1 1310 LD L,(IX+9)
1 1300 JR NZ,LOAD6
1 1290 AND A
1 1280 LD A,(LENSEC)
1 1270 LD BC,(LEN)
1 1260 LD HL,(START)
1 1250 POP IX
1 1240 JR NZ,LOAD2
1 1230 DEC C
1 1220 INC HL
1 1210 LOAD3 INC DE
1 1200 JR LOAD0
1 1190 IS_TRK LD DE,0
1 1180 DJNZ LOAD1
1 1170 EX DE,HL
1 1160 ADD HL,DE
1 1150 LD HL,16
1 1140 RET Z
1 1130 DEC (IX+0)
1 1120 POP DE
1 1110 JR Z,LOAD3
1 1100 CP (HL)
1 10x10000=100000
1 1090 LOAD2 LD A,(DE)
1 1080 LD C,9
1 1070 LD HL,DATA
1 1060 LOAD1 PUSH DE
1 1050 LD B,16
1 1040 LD IX,NUM1+1
1 1030 LD DE,BUFF
1 1020 LOAD0 CALL LOADL
1 1010 LD DE,0
1 1000 LD (NUM1+1),A
1 10 PRINT "PROGRAMM NO AUTO RUN"
1 10 LET A=127
1 10 END TURN -
1 10 BORDER 0 : PAPER 0 : INK 7 : CLS
1 1. PRACTICE.
1 1. PRACTICE -
1 1,1,1,2,3,3,3 HEX
1 1 REM SHOOTING; Regal Phoenix
1 1 REM Laser; Regal Phoenix 19
1 1 RANDOMIZE USR 15619: REM : LOAD "SAT"CODE
1 1 ORDER -
1 ***********************************************************************
1 ******************************************************************
1 (STEVEN
1 (RUB LOTION),
1 (FLAMZON
1 "FIRE" (
1 VIPER'
1 SCORPION CLUB.
1 RANDOMIZE USR 15619:REM:SAVE "PROG1"
1 R -
1 QUASAR -
1 QUAKER -
1 LOAD A SAVED GAME? Y OR N
1 HARBINGER(2,3) -
1 HAMMERHEAD -
1 DRONE -
1 CARRIER COMAND -
1 AVATAR -
1 ASSASSIN'
1 ASSASIN -
1 ASSALING -
1 990 LD A,(BUFF+228)
1 980 CALL LOADL
1 970 LD DE,8
1 960 CALL ON_DSK
1 950 LD (LEN),DE
1 940 LD (START),HL
1 940 DEFB 0
1 930 TEXT DEFB " HELLO ALL USER !!! "
1 930 LOAD LD (LENSEC),A
1 920 WDAI DEFB 1
1 920 RET
1 910 WDA DEFB 1
1 910 XOR A
1 900 PBA DEFB 128
1 900 CALL SAVEL
1 890 TXTAI DEFW 0
1 890 LD DE,8
1 880 TXTA DEFW 0
1 880 LD (BUFF+228),A
1 870 JR A_M5
1 870 INC A
1 860 NUM1 LD A,0
1 860 LD A,(HL)
1 850 TAKN CALL A_M5
1 850 LD (BUFF+229),HL
1 840 POP HL
1 840 JR A_M6
1 830 LD (WDAI),A
1 830 LD (BUFF+225),HL
1 820 POP HL
1 820 LD (WDA),A
1 810 CC3 CALL TAKN
1 810 CALL LOADL
1 800 S3 LD DE,8
1 800 JR A_M6
1 790 LD (A_M1+3),A
1 790 CALL SAVEL
1 780 CC2 CALL TAKN
1 780 DEC E
1 770 LD (BUFF),A
1 770 JR A_M6
1 760 XOR A
1 760 LD (COL1+3),A
1 750 CC1 CALL TAKN
1 750 CALL LOADL
1 740 RET
1 730 JR C,CC3
1 720 RRA
1 710 JR C,CC2
1 700 RRA
1 690 LENGTH EQU HEADER+11 ;
1 690 LD DE,(SYSTRK+1)
1 690 JR C,CC1
1 680 START EQU HEADER+13 ;
1 680 RRA
1 680 PUSH AF
1 670 HEADER DEFS 17 ;
1 670 PUSH DE
1 670 JR Z,CC4
1 660 MEM_SP DEFW 0 ;
1 660 CONCA AND #07
1 660 POP AF
1 650 CNTLEN DEFW 0 ;
1 650 A_M6 JR A_M4
1 650 CALL DRIVER
1 640 MYPROC RET ;
1 640 LD C,6
1 640 LD (TXTA),HL
1 630 CC4 LD HL,(TXTAI)
1 630 RET ;
1 630 LD B,A
1 620 RET
1 620 LD A,(LENSEC)
1 620 CP 1 ;
1 610 LD HL,(START)
1 610 LD A,H ;
1 610 JR NZ,S_A2
1 600 S9 LD DE,(SECTRK)
1 600 EXX ;
1 600 DEC C
1 590 POP HL ;
1 590 LD (DE),A
1 590 ADD HL,DE
1 580 QUIT LD SP,(MEM_SP) ;
1 580 XOR A
1 580 LD DE,32
1 570 RET ;
1 570 POP HL
1 570 JR Z,S9
1 560 PUSH AF
1 560 POP AF ;
1 560 DJNZ S_A1
1 550 JR Z,QUIT ;
1 550 INC HL
1 550 AND 15
1 540 LD (HL),A
1 540 EXX ;
1 540 CPL
1 530 POP HL ;
1 530 LD A,(NUM1+1)
1 530 DEC HL
1 520 OR L
1 520 LDIR
1 520 LD A,(HL)
1 510 S_A1 INC HL
1 510 ADDR DEFW 40000
1 510 LD BC,16
1 510 LD A,H ;
1 500 ADRH EQU 135
1 500 LD HL,DATA
1 500 LD B,32
1 500 LD (CNTLEN),HL
1 490 S_A2 PUSH HL
1 490 ADRL EQU 0
1 490 POP DE
1 490 DEC HL
1 480 RET
1 480 LD HL,(CNTLEN) ;
1 480 LD C,8
1 480 CALL LOADL
1 470 SCR_ATT LD HL,23040
1 470 PUSH HL ;
1 470 LD (SYSTRK+1),DE
1 470 INC DE
1 460 RET
1 460 POP DE
1 460 LD E,A
1 460 JR NZ,QUIT ;
1 450 Y0 DEFB 0
1 450 RRA
1 450 LD (TXTA),HL
1 450 DJNZ LOK
1 450 DEFB 0
1 450 CP H ;
1 440 VIS DEFB 175
1 440 TEXT DEFM "HELLO ALL HACKERS"
1 440 RRA
1 440 CALL #05A9 ;
1 430 YPOS DEFB 0
1 430 TEMP DEFW 0
1 430 A_M5 LD HL,(TXTA)
1 430 RRA
1 430 LD E,1 ;
1 430 INC D
1 420 XPOS DEFB 0
1 420 RRA
1 420 RET NC
1 420 LD (DE),A
1 420 JR LK
1 420 EXX ;
1 410 LOK LD A,(HL)
1 410 LOAD1B PUSH AF ;
1 410 RET
1 410 LD (PBA),A
1 410 INC HL
1 410 AND 240
1 400 OBH LD HL,(TEMP)
1 400 RRCA
1 400 LD B,8
1 400 LD A,B
1 400 JR LPLOAD ;
1 400 DJNZ L1
1 390 LPLOAD CALL LOAD1B ;
1 390 RET
1 390 PUSH HL
1 390 POP BC
1 390 LD H,ADRH
1 390 LD E,A
1 390 LD A,(PBA)
1 380 LD L,A
1 380 LD (YPOS),A
1 380 LD (WDA),A
1 380 JR NZ,GO
1 380 CALL MYPROC ;
1 380 ADD HL,DE
1 380 ADD A,32
1 370 LD HL,BUFF
1 370 LD A,E
1 370 LD A,(Y0)
1 370 LD A,(WDAI)
1 370 LD (MEM_SP),SP ;
1 370 DEC C
1 370 ADD A,L
1 360 RET NZ
1 360 PUSH HL ;
1 360 POP BC
1 360 LD L,ADRL
1 360 LD E,A
1 360 LD (VIS),A
1 360 JR NZ,OBH
1 350 LD (WDA),A
1 350 JR NZ,Y
1 350 EXX ;
1 350 DEC A
1 350 AND 31
1 340 OFF DEC C
1 340 RET NC ;
1 340 LD A,E
1 340 LD A,(VIS)
1 340 DEC A
1 330 LD H,A
1 330 LD A,(WDA)
1 330 INC DE
1 330 DJNZ L11
1 330 CP 1
1 320 PR PUSH DE
1 320 POP DE
1 320 POP BC
1 320 LD A,E ;
1 320 DJNZ A_M3
1 320 ADD A,A
1 320 ADD A,8
1 310 RET NC ;
1 310 LD A,H
1 310 LD (YPOS),A
1 310 JR NZ,LKT
1 310 ADD IX,DE
1 300 A_M2 LD DE,32
1 300 RRA
1 300 POP AF
1 300 LD B,A
1 300 JR C,OFF
1 300 INC A
1 300 DEC C
1 290 TEMP DEFB 1,0
1 290 A_M1 LD (IX+0),0
1 290 LD L,A
1 290 LD E,A
1 290 LD D,B
1 290 LD A,(YPOS)
1 290 IN A,(254)
1 290 CALL PR
1 280 SUB 32
1 280 SRL A
1 280 LD A,127 ;
1 280 LD (NUM1+1),A
1 280 JR BEGIN
1 280 JR A_M2
1 280 DJNZ LOOP
1 280 ADD A,32
1 270 COL1 LD (IX+0),255
1 270 SRL A
1 270 RET NC
1 270 PUSH HL
1 270 LD A,L
1 270 LD A,E
1 270 INC DE
1 270 CALL #0562 ;
1 260 SRL A
1 260 RRA
1 260 RET C
1 260 POP DE
1 260 JR Z,A_M1
1 260 JR NZ,OFF
1 260 INC HL
1 260 DEC D
1 250 SRL A
1 250 SBC HL,BC
1 250 LD (HL),A
1 250 IN A,(#FE)
1 250 EX AF,AF'
1 250 DJNZ LOOP
1 250 CP 7
1 250 AND C
1 240 PRINT PUSH AF
1 240 OR (HL)
1 240 LD A,#7F ;
1 240 INC D ;
1 240 AND A
1 240 AND 7
1 230 A_M3 LD A,(HL)
1 230 RET
1 230 LD DE,1 ;
1 230 LD A,H
1 230 LD (HL),A ;
1 230 INC D
1 220 POP HL ;
1 220 LD IX,23071
1 220 LD HL,(BUFF+229)
1 220 LD (CNTLEN),DE ;
1 220 LD (ADDR),HL
1 220 DEC H
1 215 XOR A
1 210 START POP HL
1 210 LD B,8
1 210 LD A,(HL) ;
1 210 LD (LENSEC),A
1 210 INC D
1 210 DJNZ LK
1 210 DEC DE ;
1 210 AND (HL)
1 200 PROC DI ;
1 200 PUSH AF
1 200 POP DE
1 200 LD E,A
1 200 LD BC,(PBA)
1 200 LD A,C
1 200 LD (DE),A
1 200 ADD HL,BC ;
1 190 S1 LD B,0
1 190 LOOP LD A,(HL)
1 190 LOOP LD A,(DE)
1 190 PUSH HL ;
1 190 DJNZ STEP
1 190 DEFB 26 ; "Tape loading error"
1 190 ADD HL,DE
1 190 ADD A,32
1 1820 ; ========================
1 1810 RET
1 1800 POP AF
1 180 RST 8 ;
1 180 LD DE,(23606)
1 180 LD BC,#4000 ;
1 180 LD B,4
1 180 LD B,32
1 180 LD A,E
1 180 INC E
1 180 INC C
1 1790 DEFB #80
1 1780 RST #8
1 1770 PRINTR PUSH AF
1 1760 ; DRIVER FOR "Scorpion ZS 256"
1 170 LKT PUSH DE
1 170 RET C ;
1 170 POP DE
1 170 LD H,A ;
1 170 JR Z,S1
1 170 INC L
1 170 CALL #22AA
1 170 ADD HL,HL
1 160 LD C,2
1 160 LD (HL),A
1 160 JR NZ,LOOP
1 160 JR NC,BEGIN ;
1 160 DEC L
1 160 DEC B
1 160 CALL #053F ;
1 160 ADD HL,HL
1 150 LOADER CALL PROC ;
1 150 PUSH DE
1 150 POP BC
1 150 INC L
1 150 DEC C
1 150 CP #5C ;
1 150 AND (HL)
1 150 ADD HL,HL
1 140 SCF ;
1 140 POP AF
1 140 OR #40 ;
1 140 LD H,0
1 140 LD E,L
1 140 LD C,H
1 140 INC DE
1 140 ADD HL,BC
1 130 PUSH AF
1 130 LD D,H
1 130 LD A,255 ;
1 130 LD (DE),A
1 130 JR C,CONCA
1 130 INC HL
1 130 AND #1F ;
1 130 ADD HL,HL
1 120 TEMP DEFB 1,0
1 120 POP HL
1 120 OR (HL)
1 120 LD HL,(LEN)
1 120 LD DE,(LENGTH) ;
1 120 LD A,H ;
1 120 CP #20
1 120 CALL #22AA
1 120 ADD HL,HL
1 110 PUSH BC
1 110 PUSH AF
1 110 POP BC
1 110 LD IX,(START) ;
1 110 LD A,L
1 110 LD (SECTRK),HL
1 110 ADD HL,HL
1 100 STEP LD A,(DE)
1 100 LD L,(HL)
1 100 LD HL,(BUFF+225)
1 100 LD H,C
1 100 LD B,A
1 100 JR NZ,FILE ;
1 100 CALL PRINT
1 (15x6000=90000
1 #8400
1 #8300 192
1 #8200 256
1 #8100 256
1 SS+7 -
1 SS+0 -
1 ROCK STAR ATE MY HAMSTER
1 PUSH HL
1 PUSH DE
1 PUSH AF
1 PRESS FIRE TO START
1 POP HL
1 POP AF
1 OUT (C),reg8 - 12
1 ORG 32000
1 LD HL,32768
1 LD HL,#5CD6
1 LD E,(HL)
1 LD D,(HL)
1 LD C,#7F
1 LD C,#5F
1 LD BC,@@5
1 LD BC,7
1 LD BC,5 ;
1 LD BC,#2090
1 LD BC,#017F
1 LD B,8
1 LD B,128
1 LD A,E
1 LD A,0
1 LD A,(#5CD6)
1 LD A,#58
1 LD A,#3C
1 LD A,#1C
1 LD (HL),A
1 LD (@@4+1),DE
1 JR Z,@@6
1 JR Z,@@1
1 JR Z,$+5
1 JR Z,$+4
1 JR Z,$+3
1 JR NZ,@@2 ;*
1 JR NZ,@@1
1 JR NC,@@7
1 JR @@3
1 INC D ;
1 INC H
1 INC E
1 INC A
1 FF54 STA FF53
1 FF52 LDA #FAh
1 EX (SP),HL
1 DJNZ $-10
1 DEFW #3EF5
1 DEFW #2FC3
1 DEFW #1FF3
1 DEC D ;
1 DEC B
1 DD1- K555
1 CS+9 -
1 CS+8 -
1 CS+7 -
1 CS+6 -
1 CS+5 -
1 CS+0 -
1 CP (HL)
1 CALL 32000
1 CALL #3D13 ;
1 CALL #33C3
1 BIT 0,D ;*
1 BIT 0,D
1 AND A
1 990 OUT (#7F),A
1 980 INITPR LD A,27
1 980 INITPR LD A,#88
1 90 A_M4 LD HL,(TXTA)
1 90 RET Z
1 90 RET NC
1 90 PUSH BC
1 90 LD B,32
1 90 INC A
1 90 CP 3 ;
1 80 SCROLL CALL SCR_ATT
1 80 OR L
1 80 LD A,(YPOS)
1 80 LD A,(HEADER) ;
1 80 CP 128
1 70 Y PUSH HL
1 70 LOOP LD A,(HL)
1 70 RET
1 70 LD L,(HL)
1 70 LD C,A
1 70 LD A,(BUFF+228)
1 70 JR NC,FILE ;
1 60 XOR A
1 60 LD C,8
1 60 LD A,(XPOS)
1 60 LD (TXTAI),HL
1 60 JR START
1 60 CALL LOADL
1 60 CALL 1366 ;
1 60
1 6. 25h -
1 50 LK PUSH DE
1 50 L11 PUSH BC
1 50 SCF ;
1 50 PUSH DE
1 50 LD DE,8
1 50 LD BC,15360
1 50 LD (TXTA),HL
1 5. 24h -
1 40 LK LD (TEMP),HL
1 40 L1 PUSH BC
1 40 XOR A ;
1 40 LD HL,TEXT
1 40 LD DE,22432
1 40 LD B,8
1 40 CALL ON_DSK
1 4. 23h -
1 3E 14 32 33 B7
1 3E 11 32 33 B7
1 3E 10 D3 FD
1 3E 10 32 33 B7
1 30 GO PUSH BC
1 30 LD HL,TEXT
1 30 LD DE,17 ;
1 30 LD DE,16384
1 30 LD B,A
1 30 LD (PBA),A
1 30 LD (LEN),DE
1 3. 22h -
1 240 CALL CLBUF
1 20 SAVE LD (START),HL
1 20 INSTALL LD A,128
1 20 FILE LD IX,HEADER ;
1 20 BEGIN LD HL,(TEMP) ;
1 20 BEGIN LD HL,(TEMP)
1 20 BEG LD HL,(ADDR)
1 20 BEG LD DE,16384
1 20 LD C,175
1 20 LD A,(VIS)
1 2. 21h -
1 110 FOR A=15880 TO 15928: POKE S,PEEK A: LET S=S+1: NEXT A
1 100 LET S=135*256: FOR A=15744 TO 15823: POKE S,PEEK A: LET S=S+1: NEXT A
1 10 ORG 50000
1 10 ORG 30000
1 1.3.
1 1. 20h -
1 0
1 ************************************************************** LD DE,(SYSTRK+1)
1 "-" -
1 "," -
1 "+" -
1 "*" -
1 "#" -
1 |
1 UNCUT 3KT DIAMOND (
1 TREASURE MAP (
1 STOCK AND BONDS (
1 STAR OF INDIA (
1 SPANISH DOUBLONS (
1 SMOOTH -
1 S-ROM03 0C
1 S-ROM02 08
1 S-ROM01 04
1 S-ROM00 00
1 ROTATION -
1 PASS BY -
1 MYPROC JP PRINT
1 LENGHT:
1 JEWELLED LAMP (
1 If verb(8) AND noun(11) AND noun(23) THEN DO ...,
1 IMMEDIATE -
1 GRECIAN URN (
1 GOLD STATUE OF TUT (
1 GOLD NUGGETS (
1 FULL -
1 FAST -
1 EMERALD SCARAB (
1 DIRECT -
1 DEEDS TO A SWISS CHALET
1 DE -
1 D4
1 D3
1 D2
1 D1
1 D1
1 D0, D1, D2 -
1 CULTURED PEARLS (
1 CROWN JEWELS (
1 CHRONOGRAF (
1 CALL AT -
1 AUTOGRAPHED BEATLES ALBUM
1 ANCIENT ARTIFACT (
1 49-er SEASON TICKETS (49-
1 40
1 4. SP -
1 35-mm CAMERA (35
1 3. IY -
1 2000$.
1 2. (IX-1) -
1 12
1 10 RANDOMIZE USR 40000: PAUSE 0: GO TO 10
1 1 -
1 0 -
1 ... ... ... ...
1 (EARTH SOFTWARE)
1 (C)
1 ZX-
1 THE GHOSTBUSTERS 2
1 RET ;
1 RET ;
1 PUSH IX
1 PUSH BC A,D,E,H,L,XL,XH,YL,YH
1 POP BC
1 POP DE
1 OUT (C),A OUT (C),REG
1 OUT (C),A
1 ORG #8000 ;
1 OR C ;
1 OR A ;
1 NOP ;!!! ; "
1 NOP ; !!!
1 MING VASE (
1 LD I,A ;
1 LD HL,INT ; INT -
1 LD BC,#300 ;
1 LD A,B ;
1 LD A,#XX ;
1 LD (#XXFF),HL ;
1 LD BC, #JFFD LD BC, #JFFD
1 LD BC, #JFFD
1 LD L,H ;
1 LD IX,SCR
1 LD IX,L4
1 LD HL,L3-5
1 LD HL,L3
1 LD HL,L2-3
1 LD HL,L2
1 LD HL,INT2 ;
1 LD HL,INT2
1 LD HL,BUFF ; HL -
1 LD HL,(BUFF+3) ;
1 LD HL,(BUFF+1) ;
1 LD HL,#58B1
1 LD HL,#5888
1 LD E,1 ;
1 LD DE,L4
1 LD DE,0 ;
1 LD DE,0
1 LD DE,#0018
1 LD DE,#0008
1 LD DE,#0004
1 LD D,L ;
1 LD C,E ;
1 LD C,E
1 LD C,14
1 LD BC,L4-L3
1 LD BC,L3-L2
1 LD BC,L3-L1
1 LD BC,L2-L1
1 LD BC,956
1 LD BC,475
1 LD BC,473
1 LD BC,2749 ;
1 LD BC,1026
1 LD BC,#0020
1 LD B,E
1 LD B,D ;
1 LD B,D
1 LD B,8
1 LD B,5
1 LD B,4
1 LD B,15 ;
1 LD B,15
1 LD B,(HL) ;!!! ;
1 LD A,R ;!!! ;
1 LD A,R ;!!!
1 LD A,H ;
1 LD A,E ;
1 LD A,D ;
1 LD A,B ;
1 LD A,B ;
1 LD A,16
1 LD A,0 ;
1 LD A,(HL) ;!!! ;
1 LD A,(HL) ;!!! ;
1 LD A,#94
1 LD A,#92
1 LD A,#81 ;
1 LD A,#80 ;
1 LD A,#80
1 LD (L2+1),HL
1 LD (IX+3),H
1 LD (IX+2),L
1 LD (IX+1),#22
1 LD (BUFF+4),A ; - " - " -
1 LD (#94FF),HL
1 LD (#92FF),HL
1 LD (#81FF),HL ;
1 JR Z, WAIT ;
1 JR NZ,M3 ;
1 JR Z,DISP3 ;
1 JR Z,DISP2 ;
1 JR Z,DISP1 ;
1 JR NZ,WAIT2
1 JR NZ,WAIT
1 JR NZ,W1 ;
1 JR NZ,L31
1 JR NZ,L2
1 JR NZ,K_1
1 JR NZ,K4
1 JR NZ,K3
1 JR NZ,K1
1 JR NZ,K0
1 JR NZ,F2 ;
1 JR NZ,F1 ;
1 JR M0 ;
1 JR M0
1 JR F0 ;
1 JP NC,M1 ;
1 JP M2 ;
1 JP CURSOR
1 JP C,L4
1 JP C,L3
1 JADE CARVING (
1 INC A ;
1 INC HL ;
1 INC E ; 4 ; - " - " -
1 INC E ; 3 ; - " - " -
1 INC E ; 2 ;
1 INC DE ;!!!
1 IM 2 ;
1 IM 1
1 IM 0 ;
1 HALT ;
1 EXX PUSH BC
1 EXX POP BC
1 EX DE,HL ;
1 ENT $ ;
1 EI ;
1 EI ;
1 E-E-NE-E-E-NE-N-SW
1 DJNZ K3
1 DJNZ K1
1 DJNZ K0
1 DEC BC ;
1 CP L ;
1 CP D ;
1 CP 4 ;
1 CALL Z,M2 ;
1 CALL WAIT2
1 CALL WAIT ; - " - " -
1 CALL NC,M1 ;
1 CALL L4
1 CALL L3
1 CALL FILTER
1 ADD IX,DE
1 ADD HL,HL ;!!!
1 6
1 2
1 1 -
1 0 -
1 0 1 2 3 4 5 6 7
1 ..... .....
1 .....
1 ... ...
1 ... ;
1 ...
1 !
1 YPOS -
1 Y0 -
1 XPOS -
1 XOR (HL) ;
1 XOR (HL)
1 XOR #1B
1 VIS -
1 SUB 4
1 SUB L ADD HL, BC
1 SUB A
1 SUB 8 ;
1 SUB 4
1 SUB 1
1 SRL H
1 SRL A
1 SLA E
1 SLA A
1 SLA (HL) ;
1 SET 7,A
1 RST #10
1 RL D
1 RL (HL) ;
1 RET Z ;
1 RET NZ ;
1 RET NC
1 RET C ;
1 RET ;
1 RET ;
1 PUSH IX ;
1 PUSH HL
1 PUSH AF ;
1 POP DE
1 POP HL ;
1 POP HL ;
1 POP BC ;
1 ORG 45000
1 ORG 38000
1 ORG 23296 ;
1 ORG $&#FF00+256 ;
1 ORG $&#FF00+256
1 ORG #9000
1 ORG #9000
1 OR #58
1 OR #40
1 OR L
1 OR D
1 OR (HL) ; HL
1 MYPROC RET
1 MULTICOLOR -
1 LDI
1 LD L,A
1 LD L,(IX+1)
1 LD IX,(TABLE)
1 LD HL,TABLE2 ;
1 LD HL,TABLE1 ;
1 LD HL,CRDS+1
1 LD HL,(CRDS) ;
1 LD H,A POP BC
1 LD H,A
1 LD H,0
1 LD E,STEP
1 LD E,A
1 LD D,A ;
1 LD D,254
1 LD D,190
1 LD C,A
1 LD A,L ;
1 LD A,H
1 LD A,D
1 LD A,255 ;
1 LD A,1 ;
1 LD A,(IX+1) ;
1 LD A,
1 LD (TABLE),HL ;
1 LD (OPC1),A ;
1 LD (OPC),A ;
1 LD (OPC),A
1 LD (CRDS),DE
1 LD L,A PUSH BC
1 LD E,A
1 LD D,A
1 LD C,A
1 LD L,E ;
1 LD L,D ;
1 LD L,A ;
1 LD L,#FD
1 LD IX,SCREEN+6112 ;
1 LD IX,BUF
1 LD IX,(NACH.)
1 LD HL,ZEUS
1 LD HL,TOK-1
1 LD HL,TEXT
1 LD HL,TAB
1 LD HL,SCREEN+6144
1 LD HL,SCREEN ;
1 LD HL,PR
1 LD HL,PAUSE
1 LD HL,LONG+1
1 LD HL,LINE1
1 LD HL,LINE
1 LD HL,BUFF
1 LD HL,BUF
1 LD HL,ADRT
1 LD HL,ADR+6911
1 LD HL,ADR
1 LD HL,50000
1 LD HL,45000
1 LD HL,22559
1 LD HL,22528 ;
1 LD HL,22520
1 LD HL,18432
1 LD HL,16420
1 LD HL,16419
1 LD HL,16418
1 LD HL,16415
1 LD HL,10072
1 LD HL,0001
1 LD HL,0
1 LD HL,(TEXP)
1 LD HL,(RND+1)
1 LD HL,(INCR) ;
1 LD HL,(ADR2)
1 LD HL,(23606)
1 LD HL,#5800 ;
1 LD H,E
1 LD H,(HL) ;
1 LD H,#5A
1 LD E,D
1 LD E,C
1 LD E,B
1 LD E,1 ;
1 LD DE,X
1 LD DE,TEXT
1 LD DE,SCREEN
1 LD DE,KEY
1 LD DE,ADDR
1 LD DE,96
1 LD DE,6912
1 LD DE,65281
1 LD DE,64
1 LD DE,257
1 LD DE,22529
1 LD DE,210
1 LD DE,18919 ;
1 LD DE,16384 ;
1 LD DE,15616
1 LD DE,128
1 LD DE,(SEED)
1 LD DE,(LONG)
1 LD DE,(ADR3)
1 LD DE,(ADR1)
1 LD DE,#5800
1 LD DE,#4000 ;
1 LD D,A ; (
1 LD C,A ;
1 LD C,16
1 LD C,128
1 LD C,(HL) ;
1 LD BC,767
1 LD BC,6912
1 LD BC,6144
1 LD BC,512
1 LD BC,32 ;32
1 LD BC,2816
1 LD BC,22496 ;
1 LD BC,1792
1 LD BC,12343
1 LD BC,108
1 LD BC,#0800
1 LD BC,#0500
1 LD B,L ;
1 LD B,96
1 LD B,8 ;
1 LD B,7 ;
1 LD B,64
1 LD B,6
1 LD B,5
1 LD B,4
1 LD B,23 ;
1 LD B,20
1 LD B,192
1 LD B,182
1 LD B,16
1 LD B,15
1 LD B,14
1 LD B,10
1 LD B,(HL)
1 LD B,#FF
1 LD B,#C0 ;
1 LD A,STEP ;
1 LD A,R
1 LD A,E ;
1 LD A,B
1 LD A,9
1 LD A,77
1 LD A,65
1 LD A,6 ;
1 LD A,32
1 LD A,20
1 LD A,2
1 LD A,16
1 LD A,13
1 LD A,10
1 LD A,(PAUS)
1 LD A,(IX+1)
1 LD A,(DE) ;
1 LD A,(CLR)
1 LD A,%11111111
1 LD A,%10000000 ;
1 LD A,%00000000 ;
1 LD A,#F7
1 LD A,#80 ;
1 LD (TEXP),HL
1 LD (TABL),HL
1 LD (TAB2),HL
1 LD (SEED),HL
1 LD (RND+1),HL ; HL
1 LD (POINTER+1),HL
1 LD (L6+1),A
1 LD (IY+83),6
1 LD (IY+14),6
1 LD (IX+0),A
1 LD (HL),E
1 LD (HL),D ;
1 LD (HL),214 ; 214 -
1 LD (HL),#FE ;
1 LD (CLR),A
1 LD (BUFF),HL ;
1 LD (BITE),A ;
1 LD (ADR3),DE
1 LD (ADR3),BC ;
1 LD (ADR2),IX ;
1 LD (ADR2),HL
1 LD (ADR1),DE ;
1 LD (ADR1),DE
1 LD (ADR),HL ;
1 LD
1 JR Z,PROGRAM ;
1 JR Z,PROG ;
1 JR Z,L1 ;
1 JR Z,BAR5 ;
1 JR QO
1 JR NZ,PROPOPC ;
1 JR NZ,EXIT
1 JR COND1 ;
1 JR BAR6
1 JR ZX_HANG
1 JR Z,TAB
1 JR Z,STOP
1 JR Z,PR
1 JR Z,P2
1 JR Z,P1
1 JR Z,NO1
1 JR Z,NO
1 JR Z,LOOP4
1 JR Z,L1
1 JR Z,HH
1 JR Z,GG
1 JR Z,FF
1 JR Z,EXIT
1 JR Z,END
1 JR Z,EE
1 JR Z,DD
1 JR Z,CH1
1 JR Z,CC
1 JR Z,BB
1 JR Z,AA
1 JR PRINT
1 JR P2
1 JR NZ,W_RAY
1 JR NZ,PREP_T
1 JR NZ,P1
1 JR NZ,OK
1 JR NZ,MULT
1 JR NZ,M2
1 JR NZ,LOOP
1 JR NZ,LIN10
1 JR NZ,LIN1
1 JR NZ,L5
1 JR NZ,L4
1 JR NZ,L3 ;
1 JR NZ,L3
1 JR NZ,L1
1 JR NZ,C_OUT
1 JR NZ,CONT
1 JR NZ,CH2
1 JR NZ,ATR_DEC
1 JR NC,TOKEN
1 JR NC,RE_RND
1 JR NC,L3
1 JR NC,CH3
1 JR LP
1 JR LOOP5
1 JR LOOP
1 JR L4
1 JR L2
1 JR L1
1 JR INNER_L
1 JR GO
1 JR FIR_NEX ;
1 JR CONT2
1 JR CONT
1 JR CH4
1 JR C,STARS
1 JR C,LIN10
1 JR C,LIN1
1 JR C,L5
1 JR C,L2 ;
1 JR C,L2
1 JR C,INNER_L
1 JR C,INNER
1 JR C,B_FX
1 JR C,ATR_DEC
1 JP PO,$+4
1 JP PE, FILL_T
1 JP MULTS
1 JP DEMO
1 JP 49190
1 JP #C000
1 JP #33C3
1 INC HL ;
1 INC A
1 INC HL ; HL=HL+1
1 INC HL ;
1 INC HL ;
1 INC H ;
1 INC DE ;
1 INC B
1 IN A,(31)
1 IMWRK PUSH HL
1 IMON DI
1 IMOFF DI ;
1 EXX ;
1 EX DE,HL
1 EX DE,HL ,
1 EX AF,AF'
1 EI
1 DJNZ FILL1 ;
1 DJNZ W_RAY ;
1 DJNZ SET_DOT ;
1 DJNZ SET_DIV ;
1 DJNZ SET_ADR ;
1 DJNZ SC4
1 DJNZ SC3
1 DJNZ SC2
1 DJNZ SC1
1 DJNZ PR1
1 DJNZ P3
1 DJNZ NEX_LIN ;
1 DJNZ M1
1 DJNZ LOP
1 DJNZ LOOP3
1 DJNZ LB
1 DJNZ L5
1 DJNZ INRND
1 DJNZ IC
1 DJNZ ATR2
1 DJNZ ATR1
1 DJNZ $-1
1 DJNZ $
1 DI
1 DEFW #FFFF
1 DEFM "ZXCV"
1 DEFM "UP: "
1 DEFM "RIGHT: "
1 DEFM "PRESENTS ... "
1 DEFM "MNB"
1 DEFM "LKJHPOIUY"
1 DEFM "LEFT: "
1 DEFM "HELLO EVERY BODY!"
1 DEFM "FIRE: "
1 DEFM "EARTH SOFTWARE"
1 DEFM "DOWN: "
1 DEFM "ASDFG"
1 DEFM "2"
1 DEFM "09876"
1 DEFB 6
1 DEFB 4
1 DEFB 3
1 DEFB 2,1
1 DEFB 2
1 DEFB 0,22,14,10
1 DEFB 0,22,13,10
1 DEFB 0,22,12,10
1 DEFB 0,22,11,10
1 DEFB 0
1 DEC HL
1 DEC B
1 DEC SP ;
1 DEC SP
1 DEC H
1 DEC D
1 DEC C
1 DEC BC
1 DD1.1 DD1.2
1 D57
1 Copyright SerzhSoft from Shadrinsk
1 CPI ; LITRLE TRICK
1 CP L ;
1 CP L
1 CP H
1 CP D
1 CP 2 ;
1 CP 1 ;
1 CP 1
1 CP C ;
1 CP C
1 CP 88
1 CP 8
1 CP 72
1 CP 7
1 CP 192
1 CP #1F
1 CP #0A
1 CANCEL (
1 CALL Z,PROG1 ;
1 CALL Z,PROG
1 CALL START1 ;
1 CALL START1
1 CALL START ;
1 CALL PRINT
1 CALL FORM
1 CALL FILL ;
1 CALL BFSCR
1 CALL BAR1 ;
1 CALL BAR ;
1 CALL SVTB
1 CALL SET_VAR
1 CALL SCR
1 CALL RND ;
1 CALL MUL
1 CALL MOVE
1 CALL LINE
1 CALL L3
1 CALL KEYF
1 CALL D_STEP ;
1 CALL CHECK
1 CALL CH
1 CALL C,UP
1 CALL C,RIGHT
1 CALL C,LEFT
1 CALL C,DOWN
1 CALL ATR
1 CALL ANL
1 CALL 8933
1 CALL 5633
1 CALL 3435
1 CALL 124 ; RET -
1 CALL #33C3 ;
1 CALL #22B1
1 CALL #1601
1 CALL #05A9
1 CALL #0562
1 CALL SCAN
1 CALL 8933
1 C398: 2F 3D 00 00 00 00 00 00 :C7
1 C390: 7A C1 10 C7 18 C1 E5 C3 :E6
1 C388: 96 C3 7A ED 44 47 10 FE :A4
1 C380: 10 FE 21 F3 1F 3E 00 CD :8F
1 C378: 08 21 C3 2F CD 96 C3 42 :BE
1 C370: CD 96 C3 EE 80 20 F6 3E :1B
1 C368: 3E D0 CD 96 C3 21 BF 09 :48
1 C360: 3E 3C CD 96 C3 21 C3 2F :D6
1 C358: C8 06 08 C5 57 21 F3 1F :40
1 C350: 1E 01 18 02 1E FF AF 83 :9B
1 BIT 4,C
1 BIT 3,C
1 BIT 2,C
1 BIT 1,C
1 BIT 0,C
1 BIT 7,A ;
1 BIT 6,A
1 BIT 5,A
1 BIT 4,A
1 BIT 3,H
1 BIT 3,A
1 BIT 2,A
1 BIT 1,A
1 AND 7 ; INK
1 AND 7
1 AND 56
1 AND #C0
1 AND #38
1 AND #18
1 AND #07
1 AND 7 ;
1 AND 31 ;
1 AND #1F ;
1 ADD HL,HL
1 ADD HL,DE
1 ADD A,L
1 ADD A,H
1 ADD A,B
1 ADD HL,HL ; HL=HL+4
1 ADD HL,HL ; HL=HL+2
1 ADD HL,DE ; HL=HL+5
1 ADD A,A
1 ADD A,8
1 ADD A,64
1 ADC A,H LD BC, #
1 9D08: 20 21 21 21 20 00 ED A0 :D5
1 9D00: 41 4C 4C 20 55 53 45 52 :D5
1 9CF8: 01 20 48 45 4C 4C 4F 20 :49
1 9CF0: 18 A9 02 9D F9 9C 02 01 :84
1 9CE8: F8 9C 18 D5 CD 9B 9C 7E :87
1 9CE0: E0 CD EC 9C 32 F7 9C 32 :A8
1 9CD8: E8 CD EC 9C 32 7D 9C 18 :14
1 9CD0: C9 CD EC 9C 32 77 9C 18 :E7
1 9CC8: 38 07 1F 38 0C 1F 38 11 :6E
1 9CC0: 9C 18 8F E6 07 28 F4 1F :C7
1 9CB8: 20 EE C9 2A F4 9C 22 F2 :F9
1 9CB0: 10 F9 E1 11 20 00 19 0D :8D
1 9CA8: E5 06 20 23 7E 2B 77 23 :B5
1 9CA0: F2 9C C9 21 00 5A 0E 08 :24
1 9C98: F6 9C D0 2A F2 9C 23 22 :93
1 9C90: 32 F7 9C 3A F6 9C 0F 32 :FE
1 9C88: 9C 00 00 00 00 00 00 00 :C0
1 9C88: 48 41 43 4B 45 52 53 00 :25
1 9C88: 3D 32 F7 9C C0 3A F8 9C :B4
1 9C80: C3 C9 00 00 AF 00 00 00 :57
1 9C80: 4C 4C 4F 20 41 4C 4C 20 :1C
1 9C80: 14 23 10 FA D1 13 C9 40 :4A
1 9C80: 00 DD 19 10 EA 3A F7 9C :D9
1 9C78: 9C 23 18 CA 8F 9C 48 45 :6D
1 9C78: 85 6F 26 87 06 08 7E 12 :53
1 9C78: 3A 85 9C 32 83 9C C1 10 :91
1 9C78: 18 04 DD 36 00 00 11 20 :74
1 9C70: E6 0F D5 87 87 87 2E 00 :99
1 9C70: D4 3A 84 9C 3D 32 84 9C :C9
1 9C70: 23 A1 28 06 DD 36 00 FF :10
1 9C70: 20 04 7B C6 20 5F 2A 7C :96
1 9C70: 0D 20 CF C9 00 00 00 00 :D1
1 9C68: FE 1F D0 18 D3 01 00 00 :DD
1 9C68: CB 3F CB 3F CD 72 9C F1 :E4
1 9C68: 9C 06 08 DD 21 1F 5A 7E :A3
1 9C68: 83 9C 3C 32 83 9C C1 10 :81
1 9C68: 7C C6 08 67 0D 20 DA C1 :7D
1 9C68: 0D 20 ED D1 13 7B E6 1F :82
1 9C60: F1 B6 77 23 13 10 F5 3A :8F
1 9C60: ED 5B 36 5C 19 ED 4B F6 :1D
1 9C60: E5 09 7E E1 77 3E 7F DB :58
1 9C60: 87 9C C9 F5 CB 3F CB 3F :F1
1 9C60: 23 10 F8 D1 7B C6 20 5F :B8
1 9C60: 20 0A 7D D6 20 6F 38 04 :44
1 9C58: FE 5C 30 E4 67 01 00 40 :0A
1 9C58: D5 06 04 7E 12 14 12 14 :9D
1 9C58: D1 E1 25 7C E6 07 FE 07 :39
1 9C58: D1 7B C6 20 5F 10 E9 22 :A0
1 9C58: AA 22 06 20 1A F5 A6 12 :AD
1 9C58: 20 38 68 26 00 29 29 29 :55
1 9C50: CD AA 22 54 5D C1 05 CD :C9
1 9C50: A3 9C 2A F2 9C 6E 7D FE :CC
1 9C50: 9C C1 E1 23 13 0D 20 F3 :80
1 9C50: 61 29 29 29 09 D5 0E 02 :B6
1 9C50: 22 6D 9C 7C E6 1F F6 40 :CE
1 9C50: 22 53 9C 01 00 00 00 00 :FE
1 9C50: 12 F1 A6 77 2C 1C 10 F5 :59
1 9C48: D5 0E 08 7E E5 C5 CD 63 :27
1 9C48: 9C 4F 3A 83 9C 3C 47 C5 :70
1 9C48: 9C 01 00 3C AF 6E B5 C8 :57
1 9C48: 22 F2 9C 22 F4 9C C9 CD :DC
1 9C48: 10 E5 E5 06 20 1A F5 B6 :A9
1 9C40: 3E 80 32 F6 9C 21 F9 9C :14
1 9C40: 3A 84 9C 47 C5 C5 3A 82 :C3
1 9C40: 2A 87 9C 11 00 40 06 08 :88
1 9C40: 2A 6D 9C 0E 10 7C 29 E6 :B8
1 9C40: 2A 53 9C 0E 10 7C 29 E6 :9E
1 9C40: 11 00 40 21 7E 9C 22 7C :06
1 9C40: 0E AF C5 11 A0 57 D5 18 :53
1 54
1 51
1 4.
1 30 NEXT N
1 3.
1 23
1 20 RANDOMIZE USR 40015: PAUSE 1: GO TO 20
1 20 IF PEEK N=219 AND PEEK (N+1)=31 AND PEEK (N+2)=201 THEN PRINT AT
1 2.
1 128
1 10 RANDOMIZE USR 40000
1 10 FOR N=49152 TO 65535
1 1.
1 09BF IN A,(#1F)
1 09A1 RET
1 098A LD (#E5EA),A
1 0989 DEC A
1 0986 LD A,(#E5EA)
1 0985 RET Z
1 0982 LD (#E5EB),A
1 0981 AND C
1 097F IN A,(#1F)
1 ----------------------------------
1 (ACTIVISION, 89)
1 #04 -
1 #02 -
1 #01 -
1 #00 -
1 | (
1 |
1 SCROLL -
1 INSTALL -
1 9
1 6
1 5 RANDOMIZE USR 15619: REM : LOAD "TRDOS" CODE 49152
1 4
1 1
1 ********************************************
1 (
1 |<==
1 | T1 | T2 | T3 | T4 |
1 | | |
1 | | | | |
1 XPC-
1 XOR A
1 XOR 7
1 XOR 255
1 XC -
1 X(j+1) = (X(j)*A+B) mod R
1 WITH JOYSTIC.
1 WINTER GAMES
1 VETKA -
1 SUB 1
1 SUB E
1 SUB D
1 SUB C
1 SRL D
1 SRA A
1 SLA A
1 SH -
1 SBC HL,DE
1 SBC HL,BC
1 SBC A,C
1 SBC A,248
1 RST 16
1 RRD
1 RRCA
1 RR C
1 RR B
1 RLD
1 RLA
1 RL E
1 RL D
1 RL C
1 RET NZ
1 RET NC
1 RET Z
1 RCA ;
1 POP DE
1 POP BC
1 POP AF
1 POP DE ;
1 POP DE
1 OUT (C),A
1 ORG 40000
1 ORG 30000
1 OR C
1 OR A
1 OR 30
1 OR (HL)
1 NUM-
1 NOP
1 NETHER EARTH
1 LD L,E
1 LD IX,#4000
1 LD HL,CUP
1 LD HL,23292
1 LD HL,23291
1 LD HL,23290
1 LD HL,#401F;
1 LD H,C
1 LD H,0
1 LD E,L
1 LD E,7
1 LD E,5
1 LD E,32
1 LD E,3 ;
1 LD E,0 ;
1 LD E,(HL)
1 LD DE,VETKA
1 LD DE,32
1 LD DE,#0020
1 LD D,3
1 LD D,(HL)
1 LD C,COLOUR
1 LD C,8
1 LD BC,63488
1 LD BC,224
1 LD B,A
1 LD B,96
1 LD B,191
1 LD B,16
1 LD A,L
1 LD A,B
1 LD A,9
1 LD A,8
1 LD A,7
1 LD A,10
1 LD A,(XPC)
1 LD A,(XC)
1 LD A,(SH)
1 LD A,#FB
1 LD A,#7F
1 LD A,#3D
1 LD (IY+87),0
1 LD L,#F9
1 LD L,#06 ;
1 LD HL,(STARTL)
1 LD HL,(SEED)
1 LD HL,(COUNTL)
1 LD HL,(#5C5D);
1 LD HL,(#5C42);
1 LD HL,#5CDD ;
1 LD HL,#205
1 LD H,B
1 LD H,0
1 LD DE,TABLE+16
1 LD DE,(23606)
1 LD DE,#FF03
1 LD D,0
1 LD D,%01010000
1 LD C,L
1 LD C,#18 ;
1 LD C,#0E ;
1 LD BC,32
1 LD BC,(POSLET)
1 LD BC,(LEN)
1 LD BC,#0921
1 LD B,H
1 LD B,8 ;
1 LD B,2
1 LD A,H
1 LD A,C
1 LD A,B
1 LD A,8
1 LD A,7
1 LD A,4
1 LD A,32
1 LD A,29
1 LD A,2
1 LD A,1
1 LD A,(ST)
1 LD A,(NUM)
1 LD A,(FLAG)
1 LD A,(DE)
1 LD A,#EF
1 LD A,#7F
1 LD A,#08
1 LD (STARTL),HL
1 LD (LEN),A
1 LD (HL),#09
1 LD (HL),#00
1 LD (HL),"B" ;
1 LD (HEI),A
1 LD (ADRES),HL
1 LD (#5DA0),A
1 LD (#5C45),HL;
1 LD SP,(STC)
1 LD IX,(DEST)
1 LD HL,(DEST)
1 LD HL,(BUFF)
1 LD H,A ;
1 LD H,0
1 LD DE,BASE ;
1 LD D,1
1 LD C,L
1 LD B,H
1 LD B,(IX+1)
1 LD A,C ;
1 LD A,C
1 LD A,0
1 LD A,(IX+2)
1 LD (STC),SP
1 LD (STASC+1),HL
1 LD (HL),#FE
1 JR Z,UP
1 JR Z,FIRE
1 JR Z,DOWN
1 JR OPR1
1 JR NZ,PROD
1 JR NZ,LOOP1
1 JR NZ,LOOP
1 JR C,PROD
1 JR Z,L9
1 JR Z,L8
1 JR Z,L7
1 JR Z,L3
1 JR Z,IN_F1 ;
1 JR Z,FO_FIND
1 JR Z,#F8AA
1 JR Z,#F882
1 JR REDEF
1 JR NZ,SCRL
1 JR NZ,LOAD ;
1 JR NZ,L6
1 JR NZ,L41
1 JR NZ,L15
1 JR NZ,L14
1 JR NZ,L13
1 JR NZ,L1
1 JR NZ,KEY_PR
1 JR NZ,BEGIN
1 JR L16
1 JR FIND
1 JR COU_L
1 JR C,START
1 JR C,RUN
1 JR C,L90
1 JR C,L8
1 JR C,L70
1 JR C,L6
1 JR C,L5
1 JR C,L4
1 JR C,L3
1 JR C,L2
1 JR C,KEY_L
1 JR C,COU_E
1 JR Z,END
1 JR NZ,ONE
1 JR NZ,FULL
1 JR NZ,FORM
1 JR NC,OVELOW
1 JR C,SINGLE
1 JP (HL)
1 IX -
1 INC H
1 INC D
1 INC C
1 INC BC
1 INC B
1 IN A,(C)
1 EX DE,HL
1 EX AF,AF'
1 DJNZ ZAP_
1 DJNZ SHIFT
1 DJNZ MM
1 DJNZ LOOP2
1 DJNZ L4
1 DJNZ L2
1 DJNZ L12
1 DJNZ L11
1 DJNZ L10
1 DJNZ L1
1 DJNZ IN_F
1 DJNZ DEFLAT
1 DI
1 DEFW; ADR2
1 DEFW;
1 DEFW;
1 DEFW;
1 DEFM "(C)1996 KOTLYAROV E.S."
1 DEFB 6,6,6,7,5,5,5,7
1 DEFB 6,6,6,4,4,6,6,6
1 DEFB 6,6,3,3,3,6,6,6
1 DEFB 3,6,12,24,48,96,192,128
1 DEFB 3,3,6,6,6,6,12,12
1 DEFB 3,3,3,3,6,6,6,6
1 DEFB 2,2,2,2,6,6,6,6
1 DEFB #FF
1 DEFB #0E
1 DEC L
1 DEC C
1 DEC BC
1 DEC D
1 DEC D
1 DD1.3 +5B 1
1 Capitan Fizz
1 CUP-
1 CP 5
1 CP 0
1 CP E
1 CP 8
1 CP 7
1 CP 31
1 CP 1
1 CP %11111
1 CP #0D ;
1 CP 3
1 CP (IX+1)
1 CP #FE
1 CALL Z,STIR
1 CALL STROKA
1 CALL INIT
1 CALL COUNN
1 CALL #56A
1 CALL #3D13 ;
1 CALL #2DE3
1 CALL #2D2B
1 CALL #1601
1 CALL #0E44
1 CALL #0DD9
1 BIT 7,E
1 BIT 1,D
1 AND H
1 AND 15
1 AND E
1 AND D
1 AND C
1 AND 7
1 AND 252
1 AND %11111000
1 AND %11111
1 AND 7 ;
1 AND #18
1 ADD HL,HL
1 ADD HL,DE
1 ADD A,32
1 ADD HL,BC
1 ADD A,E
1 ADD A,248
1 ADD HL,DE
1 ADD A,B ;
1 ADD A,#40 ;
1 6
1 5
1 4
1 3
1 2
1 0
1 - --------- ---------
1 (c)
1 (HL) 1111 1011
1 (HL) 1011 1001
1 (DE) 1101 0010
1 (DE) 1001 0000
1 \/ PC \/ R+(A8-A15) \/
1 Symantec
1 SUB B
1 SUB #0A
1 RLCA
1 RLA
1 POP BC
1 POP HL
1 POP DE
1 LDIR
1 LD HL,#7530
1 LD HL,#4000
1 LD DE,#4000
1 LD DE,#3530
1 LD C,00
1 LD BC,0802
1 LD BC,#1B00
1 LD B,9
1 LD B,24
1 LD B,00
1 LD B,#FF
1 LD B, 05
1 LD A,R
1 LD A,H
1 LD A,C
1 LD A,A
1 LD A,9
1 LD A,175 ;
1 LD A,10 ;
1 LD A,0 ;
1 LD A,0
1 LD A,(LINES)
1 LD A,(HL)
1 LD A,(DE)
1 LD A,#7F
1 LD A,#51
1 LD (LINES),A
1 LD (DE),A
1 LAST BATTLE
1 L' -
1 JR Z,BEG3
1 JR NZ,D_2
1 JR NZ,BEG2
1 JR NZ,BEG1
1 JR NZ,-2
1 JR NZ,#-10
1 JR BEG5
1 JP C,M_1
1 INC L
1 INC DE
1 INC C
1 IN A,(254)
1 H' -
1 EI
1 DJNZ LOOP1
1 DJNZ D_8
1 DJNZ D_1
1 DJNZ #-1D
1 DEC A
1 D' -
1 CP C
1 CP B ;
1 CP B
1 CP #58
1 CALL 8933
1 CALL #0E44
1 C' -
1 BIT 6,A
1 BIT 0,A
1 B', E' -
1 AF, BC, DE, HL -
1 ADD HL,DE
1 ADD HL,BC
1 ADD A,C
1 ADD 10 ;
1 2 -
1 10,10;N-49152:PAUSE 0
1 1 -
1 0 -
1 / \ / \ / \ / \ /
1 ************************************************
1 Written by Kolotow Sergey
1 SRL D
1 OR #80
1 LD L,A
1 LD BC,#DFFD
1 LD BC,#7FFD
1 LD A,H
1 LD A,D
1 LD A,$11000000
1 LD A,$00001000
1 KEYBOARD.
1 D -
1 CPL
1 AND #18
1 AND #07
1 ADD A,D
1 65503 (#FFDF) -
1 64479 (#FBDF) -
1 64223 (#FADF) -
1 48
1 24
1 16
1 1 -
1 0 -
1 . . . . . . . . .
1 --- --- --- --- ---
1 *************************************************
1 HL -
1 HACKER
1 8
1 6-
1 5
1 4
1 1.4. INT
1 H L
1 DD2- K555
1 D6 -
1 D5 -
1 D4 -
1 D3 -
1 D2 -
1 D1 -
1 D0 -
1 D E
1 CMR0
1 224
1 *********************************************
1 PUSH IX
1 PUSH DE
1 PUSH BC
1 PUSH AF
1 POP IX
1 POP HL
1 POP DE
1 POP BC
1 POP AF
1 ORG 31000 ;
1 ORG 30000 ;
1 LD HL,IMWRK
1 LD A,9
1 LD A,63
1 LD A,24
1 LD A,195
1 LD (65535),A
1 LD (65525),HL
1 LD (65524),A
1 JP 56
1 JP #3D30
1 JP #3D2F
1 IM 2
1 IM 1
1 DI
1 CALL SCROLL
1 CALL INSTALL
1 = #16 = = #18 =
1 2FC5 RET
1 2FC3 OUT (#1F),A
1 2A55 RET
1 2A53 OUT (C),A
1 1FF5 RET
1 1FF3 OUT (#FF),A
1 128 * FLASH + 64 * BRIGHT + 8 * PAPER + INK
1 09BF IN A,(#1F)
1 09A1 RET
1 ...........
1 ****************************************
1 ***************************************
1 (
1 off
1 \ / \ /
1 5
1 4
1 3.
1 3
1 2
1 14
1 1
1 * DISK ERROR * !
1 (LOW+256*HIGH)
1 ^
1 \ / \ /
1 | |
1 V V
1 PLAY SON6 : 40006
1 INIT SON6 : 40000
1 DELAY SET : 40000 + 1084 = 41084
1 3 -
1 2 -
1 --------- ------
1 (
1 ------------------------------
1 2. MULTICOLOR.
1 --------------
1 TRICKS ZX
1 DD2
1 V
1 PUSH HL
1 PUSH HL
1 POP HL
1 POP HL
1 LD SP,#XXXX #XXXX -
1 LD SP,#ADDR #ADDR -
1 LD HL,(#YYYY) #YYYY/
1 LD HL,(#XXXX) #XXXX\
1 LD (#ZZZZ),HL #ZZZZ/
1 LD (#YYYY),HL #YYYY\
1 ...........
1 ; 0, 1
1 ; (
1 ; 3
1 ; 2
1 ; 1
1 ; 0
1 LD (ADR+1), HL
1 JP ADR + 9
1 +5B
1 (
1 CARRIER COMAND
1 9
1 121096,
1 ;TR-DOS
1
1
1
1
1